


Institutional Archive of the Naval Postgraduate School 


Calhoun: The NPS Institutional Archive 
DSpace Repository 


Theses and Dissertations l. Thesis and Dissertation Collection, all items 


1978 


The design and implementation of 
instructional software information system (ISIS). 


Yildirim, Ataman 


Monterey, California. Naval Postgraduate School 


http://hdl.handle.net/10945/18397 


Downloaded from NPS Archive: Calhoun 


| Calhoun is the Naval Postgraduate School's public access digital repository for 
J W D U DLE Y research materials and institutional publications created by the NPS community. 
FW : Calhoun is named for Professor of Mathematics Guy K. Calhoun, NPS's first 


WW KNOX appointed — and published — scholarly author. 

| | LIBRARY Dudley Knox Library / Naval Postgraduate School 

411 Dyer Road / 1 University Circle 
Monterey, California USA 93943 





http: //wwwenps.edu/library 


THE DESIGN AND IMPLEMENTATION OF 
INSTRUCTIONAL SOFTWARE 
INFORMATION SYSTEM (ISIS), 


Ataman Yildirim 








NAVAL POSTGRADUATE SCHOOL 


Monterey, Galifornia 





HT ET 


Instructional Software Information System (ISIS) 
by 


Ataman Yildirim 


June 1978 


Thesis Advisor: 





Approved for public release; distribution unlimited. 


1183041 





UNCLASSIFIED EA r a 


SECURITY CLASSIFICATION OF THIS PAGE (When Data Entered) 


REPORT DOCUMENTATION PAGE 


. REPORT NUMBER 


4. TITLE (and Subtitle) 







READ INSTRUCTIONS 
BEFORE COMPLETING FORM 


2. GOVT ACCESSION NO. 3. RECIPIENT'S CATALOG NUMBER 








$. TYPE OF REPORT & PERIOD COVEREO 
Master's Thesis; 


June 1978 


(ISIS) 6. PERFORMING ORG. REPORT NUMBER 





Instructional Software Information System 






8. CONTRACT OR GRANT NUMBER(»s) 


7. AUTHOR(e) 


Ataman YILDIRIM, LT, Turkish Navy 












10. PROGRAM ELEMENT, PROJECT, TASK 
AREA & WORK UNIT NUMBERS 


12. REPORT DATE 
June 1978 
13. NUMBER OF PAGES 


15. SECURITY CLASS. (of thie report) 


UNCLASSIFIED 





9. PERFORMING ORGANIZATION NAME AND ADDRESS 
Naval Postgraduate School 
Monterey, CA 93940 













CONTROLLING OFFICE NAME AND ADDRESS 


Naval Postgraduate School 
Monterey, CA 93940 








. MONITORING AGENCY NAME & ADDRESS(IH different from Controlling Office) 





Naval Postgraduate School 
Monterey, CA 93940 






1Se. OECL ASSIFICATION/ DOWNGRADING 
SCHEDULE 


116. DISTRIBUTION STATEMENT (of this Report) 


Approved for public release; distribution unlimited. 


17. DISTRIBUTION STATEMENT (ol the abetract entered in Block 20, f different from Report) 


SUPPL EMENTARY NOTES 





KEY WOROS (Continua on reveree aide if neceaeary and identify by biock number) 






computer software 
PDP-11 computer 

INGRES data base application 
QUEL query language 











ABSTRACT (Continue on reverea eide if nacasaary and identify by block number) 


This thesis describes the design, implementation and user interface 
for an Instructional Software Information System (ISIS). 







The existing volume and increasing rate of growth of computer 
software production suggests the need for a catalogue procedure 
to help programmers find existing software to reduce redundant 


programming. 








DD ,^95^4, 1473 EDITION OF 1 Nov 68 1S OBSOLETE 


JAN 73 UNCLASSIFIED 


S/N 0102-014-6601 | 
SECURITY CLASSIFICATION OF THIS PAGE (When Data Entered) 





UNCLASSIFIED 


 — E Rp umapa r i Ree em Mp — — — — . —. - 
$.cuM Tv CLASSIFICATION OF THIS PAGE/When Data Entered. 





The purpose of the ISIS is to provide an online software 
catalogue which does not require either prior instruction or 
familarity with keyword lexicons. 


Using ISIS, a user may record the characteristics of new 
software, and make searches for existing software by specifying 
its characteristics. Characteristics are specified by selection 
from a succession of menus. 


ISIS is implemented on a PDP-11 computer operating under the 
UNIX operating system using the INGRES data base management system. 
It is written in the QUEL query language embedded in the programming 
language C. 


Bine, 1o UNCLASSIFIED 
S/N 0102-014-6601 2 SECURITY CLASSIFICATION OF THIS PAGE(When Data Entered) 





Approved for public release; distribution unlimited 


EN BCcOOPb"olementation of 
Josi jerome rt ore information System 
(ISIS) 
Oy 
pee mon ee DRAN 


Lieutenant, Turkish Navy 
Turkish haval War Acaceny, 1969 


rea 1. partr13l fulfiliment of the 
reauirements for the dearee of 


OE SCIENCE INCCOMPUTEP SCIENCE 
Om the 


NAVAL POSTGRADUATE SCHOOL 
O 





ABSTRACT 


This thesis describes the desian, implementation and user 
interface for an Instructional Software Information System 
(ISIS). The existing volume and increasing € of growth 
Of computer software production suggests e need for a 
catalogue procedure to help programmers find existing 
Software to reduce redundant programming. 


The purpose of the ISIS is to provide an online 


Software catalogue which does not require either prior 


instruction or familarity with keyword lexicons. Using 
ISIS, a user may record the characteristics of new 
software, and make searches for existing software by 
Specifying its characteristics. Characteristics are 
specified by selection from a succession of menus. 
MS IS is imolemented on a PDP-11 computer operating 


under the UNIX operating system using the INGRES data 
base management system. It is written in the QUEL auery 


language embedded in the programming language C. 
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I MMRR ODUCTION 


ee RODUETION FO THE PROBLEM 

Ec inet ne computer world there is an enormous amount 
of software,» written on many different subjects. Sometimes 
Ns feasible to adopt a program on hand to a 9iven 
problem; Sometimes it is not. Even when new software must 
be created, the joo can often be made easier er advantage 
1s taken of existing scftware tools or of example programs 
Eemtormina analagous functions. 

Phe existina volume and  increasina arowth rate of 
Enouter software demands effective, easy to use catalogue 
Orocedures. "hen a proarammer is tasked to write a new 
program, mew smould be able to begin by G that 


re performina tne indicated tasks does not already 


ERO St. 
Egocv computer firms SUDO! v ron pe -On ott line 
catalonuen subroutine lioraries. But these library 


END Uesare'mot General; they are cataloaues on specific 
END ects. 2 r0 encommpPassiyne catalogue is desired, 
Bent shoulda he one which can ne conveniently extended tO 


ale new software written or acauired locallv. 





ErPOSSISEE SOLUTTOUNS 


DUMINMCOISNMU c cnmeNprpobhlemsecan take two forms; an offline 
catalonue, or an online cataloaue. After preparation», an 
Mine cstalocue 1s nard to ugdate. An online catalogue is 
easv to use ang maintain, but terminal access 1s required. 
Mean educational environment this ETT is especially 
anpnealinar it encourages the students to use software tools 
and aives them the readv access to a broad ranae of 
Software which thev would otherwise have only after gaining 
considerable prcarammına experience. Learning to take 
advantage of software tools is most important for computer 
science students, especially durina the later quarters of 


mae curriculum. 





[ac APPROACH TAKEN 


IAS LE INTTIAL SPECIFICATIONS 


After the decisions to use an online cataloaue was 
made, the followinn auestions needed to be addressed: 

aa Eros must the system perform 7? 

D. How Should the system communicate with the user ? 

The answers to these questions are really basic 
ax ctyonal soecifications: 

The system has to search system resident listings 
accoradina to user commands. The user has to be able to add 
ewe '1Stinas and also to be able to change his listings. 

Ie System Ses to be very easy to use: the user Should 
have no trouble even the Vest time he uses ıt. The 
eBeroach taken to accomclish this was to make the System 
entirely self Nominas No command vocabulary is used? 
instead, the System as«s auest ions and provides, with each 
question, a complete menu of responses. [his ohilosophv is 


Eu ompatoble with the keyword arnroach which is a common 


Eure of automatic cataloainga systems. 





Ee Pee eo RUC TUES 


"rM tS DOIN? the question of how to design the 
Structure ot the data representina the listings was 
meeressed. Ihe characteristics of imoortance ara! 

aM NuccrOumnmdemnstend:rolrty, orMEe|secusobilqty 
ENSUhnout undcerstancdi!ino. 

Abie sap yl Vey. to .aua.c k ly identify listings whose 
MUSADSOcterist'cs include those soecifred by the user. 

(5). Peasonable storaae densitv. 

Storm icc as expected to occur much more 
freouentily than the creation of new listinas or the 
í cation of ola ones; consequently the rapbrd1ty and 
complexitv of listino structure undatina was not considered 


Pew om yrmoortanmt criterian for data structure choice. 


The followina alternatives were considered: 


ET Tree tvoe structure 


In a tree forr software directoryr the leaves would be 
MOS vir dual listinas, and the nodes would each be a common 
Eu cstor oft all !sst!nas with a common characteristic. 

Ec OS iS tinas y startina at the root and makina 
EU ces at each node, until reaching the listings desired. 

^dvanteoce; 


I xc chomism"w»s easy to understand. 


_ 1 í) = 





by Sardu antaqes: 
W R or CE To answer the questions in a 
tnc amc pce. 


"NM cutcrEmpementsgtion is troublesome. 


E Table type Structure 


(ne table with two Cimensions is created; rows would 
Borrespong to program listinos; columns to characteristics. 
hen a listing has e aiven characteristic, a mark is placed 
aire appropriate cell in the table. 

Advantages: 

aD easy for user to comorehend. 
Sie P yer ecifífyorcecharacterilistics in any örder. 

Disadvantages: 

(1) A larae volume of storaoe is required. 

oe arab le lol mens1ón table 1s reauired 
because both listinas and characteristics 
ray be addec as the database arows. 

(5) Proaram purrose classification appears 
to be most conveniently oraanized as a tree. 

(4) User needs to know the characteristic 


ucc mgr XU advance, 


E 





Se Sr r QS t uc t'ure 


A compromise between the tree and tabular aporoaches 
Wes souaht in tne form cf a hybrid structure. Here the user 
may pıcture a table of tne form exolained àaoove, and he may 
MA Of the Search frocess as one of choosing blocks of 
Soumnms to omit anc columns to save, successively refining 
unc choices, until the ]lıstinas are narrowed down to a 
Eno number satisfyina the characteristics he needs. [he 
meection Of characteristic columns is organized in a tree, 
NN cuUchn the user need not be aware of this. His first choice 
K C first level of the tree - is this: from among all of 
EN ndgepbendent catecories of software classifications he 
chooses those from arona whose subdivisions he wishes to 


Bose. For example 3 user whose acal is to find a Sort for 


aoe 1BM. 560 will Ica mover the first menu, containing 
EE uuo, "hardwanre",... and will specify hardware for 
meee her clarification, ana may 1anore lanauaae if any 
Eudusce wil! do. Ine Sundivisions of each of the chosen 


Dor subdivisions of each of the chosen cateaories are 
Euccented for review - then the minor subdivisions ~ and so 
Orth, and tne user may refine his choice along any 
A ection as lona as ne wishes until tuer subdivisions 


are exnatusten. 


E 





INN Duca crnechosen for this structure was a tree 
where each node contains 3 table of names of E 
subordinate node tables ana names of software listings 
which have the characteristics of that node but are too 
@eneral to be listed among the node’s Subordinate nodes. 
(fliotice that a given listina will tyoically be referenced 
in several different parts of the Ea S sss s tree, 
most likely once under each major subcategory of the root.) 

meena onal databse modal offered an easy mechanism 
Tor maintenance of these node tables. 

At this point it was decided to use the INGRES database 
manaaement SyStem available on the NPS comouter laboratory 


MIT computer under the UNIX ocveratina svstem. 


meee ANGUAGE SELECTION 


The system proarams are written in QUEL (the INGRES 


Mery lanauaae) embeddec in the proaramming language C. 


-|3- 





SS LA TON OF SCFTCARE 


£ plausible, (Mts software classification was 
Bouch t hut no existina system seemed to be entirely 
Nouutable; moreover, they differed widely sugqgesting that 
elassificatiıen | aoodness may be ın some dearee relative to 
the environment 18 which the catalonue 15 to employeed. So 
vt was etu eu Ho implement a variable type of 
Mass y 1cation which each user acaencv can configure as it 


sees fit. 


Here 1S an example classification; 
l-= Computer software tools 
WQoeratina system 
Compiler 
Lanauace 
lime sharina 
DEDUCI ODIO ammlm «so 


Deeuagi na ards 


r ori maniculatinc tools: 
I EE 
Som © 
Merae 
U at arn ase 
Test data senerators 


tawemocrructures line stack, Queue etc. 
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EN hemstics 
et nee fume t 1OnsS 


PONSA Lıtyv 


Meson SNS e ron 


Us ines ss ter: 11cations 
tnaineenrinc 
For me ps] 


[Inventory 





II A E AIRES 

SIS Imevementes Fas an INGRES database. A tree 
permucture 1S simulated Usıma relatıons. A small 
EE onstroation Jatabase 1S Shown in figure 1. 

o wGOGt GClewt ver tree 15° the “maintable” relation which 
1S loadgea at system installation time and can not be 
chanaed ty the user. Maintable tuples Show the main 
branches of the tree! these are the independent cateaories 
software characteristics, like language and hardware. 
Every node of the tree 15 a relation ec fields, 
rid(recora ID) and crname (class record name). Rid is used 
EN U ev cto cali sections. If a rig is equal to zero, it 
means there is 3 relation with that name which further 
EMEdavaides the current relation. If a rid is greater than 
Zero, 1t means crname is the record name itself. Üne 
Erino may (ana usually will) be found recorded in more 
Bam one branch (relation). There is no information about 
Nu listinas on the tree relations; only rids are shown. 
EE Other information about a specific listing can be found 
mae the  recordfile ano whr (where) relations, which are in 


mee examnle shown in fi1cure 2. 
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NA AUDIT TESTING PHASES 


re ISIS Svsten was des1amed in Aa ton down manner. 
Hirst tne main frame of tne svstem was desianed, coded and 
res. Then the orimserv function of the system, the search 
oroaram, was  desijaneag, coded and tested. As the search 
Droaram becomes larace, some ororlems neaan to surface. The 
Moros ter beaın to Brint errors about undeclaäred variables 
Maem were in fact declared., At this point the outou of 
ENUEL orecomoiler was checked and it was seen that similar 
EEtenents in different parts of the source code were 
translatec into C as Cifforent codes. When the`source was 
givided into smaller files, the EQUFL orecompiler seemed to 
BK correctly. 

After compilation «as accomplished the testing began to 
take much more time than anticipated. The author was 
E reoared for the delinerateness with which INGRES 
ferme tioned. 

litem run tire error ressaqes surfaced, it was difficult 
Boe tina out what exactly was wrong because two compilers 


K he |"6H-S system were all involved. 


-19- 





ASS cial Ton declaration of 1ntecer arrays. For 
this reason the intener array used as the input buffer was 
dec lared as a C variable and then, when required, each 
value was taken one by one from the C array into an EQUEL 
variaole for use. 

The search proaram is comooseo of approximately 1000 
lines. | may Cause ymteractive bene i f run 
@oncurrentliy with add, delete and modi fv programs. The 
src Oout ine 15 the key component of ISIS. It is possible 
to onerate a reduced Io Dy running Just the search 
Tunetion,s maintaining the database (adds, modifications 


Emueletions) bv usina the INGRES query language QUEL. 


-o0- 





y (X UIN S TON 


A. ore CAP oR TLITIEsS 

meesten mas the followina capabilities: 

I Search: 

lhe system searches for resident listings according to 
user specified qualifications. The user can choose up to 25 
ta l1tications for a given search. 

S rada: 

Any user can add a listinas there is no need to get 
Edd permission from the ISIS manager. [he principle 
I rc tion for addition is that the depth of the tree can 
De a maximum of around 2U arcs. When a listing 1s created, 
the listing "owner" assians a one letter password. 

AOS EY: 

In? owner of a listing can modify either the listing 


EEceriot1on and/or the "where found” information. 


Ine owner of a listina can delete his listing. 

reent iy the ISIS system can has a maximum of 32767 
lu P nos necause listinas are assigned e bytes unique ID 
Wr er. ty chanama all "rid" attributes to 14 in relation 
Jeclarations, tne system could hold up to 2,174,483,6047 
ENStinas. 


MU Nor rmatron may ne found in the user's manual. 


ae 





E pouSeENS WIL IHE SYSTEM 

Only one user snould use the search program or add, 
delete and modify oroaram at a given time. If more than one 
Meereis usina ome of these, ISIS may not work correctly 
because some temoorary ISIS information is stored in shared 
misktS relations. 

System response is very slow even anion the listing 
EE 55e 1S mimiscule. This is apoarently a characteristic 
etme INGRES system. 

IS Mos 10 le to erint a herd copy of the system 
MISAS 15 cataloaue form at oresent. Each branch point is 
K in a relation and all relations can be printed but 


yt 1s hard to "extract a catalogue form from them, By 


EL oo "recoraf!|l!e" anı "uhr" relations all listings in 


the system can be seen as a list form. 
it would be preferable to use 3 more efficient, faster 


database system to 1molement ISIS, or not to use a database 


System at all. 


-Qgo- 





ES POSSIBLE OTHER USAGE AREAS 

Tne ISIS systen was desianed with software cataloguing 
in mind; nowever the svstem could 5e used in many different 
applications, for examole, the assianment of 3 oersonnel to 
Bes. "ensonnel characteristics could be put into relations 
ang when a berson is needed for a soecific joo, he can he 


mem through the search orocess. 


EE 





ASP PSE NM D I X A 


USER'S REFFRENCE MANUAL 


The ourooses of this manual are threefold: 

E OOO duce the program to facilitate maintenance. 

PE ceDCcUVaMdecuf*ortvation to the ISIS system manager to 
F le Mim to keso the system efficiently configured. 

5. To crovide the user with more detailed knowledge of 
the System and to list the error conditions. 

Runnina the system is very easy and generally no 
Crevious experience is required. The first time user should 
not need to read this manual; he should simply log in as 


Manis ond then type "do". 


Eo 
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us INTRODUCTION 


lI uuswonsl Software Information System (ISIS) is an 
online catalogue especially desianed for computer software. 

Usina ISIS a user may record the existence and 
characteristics of a new proaram, and mav make searches for 
existing software by citina the characteristics desired. 
Ana racteristics are specifien b y selection from a 
succession of menus. 

ISIS is irolemented on a PDP-li computer operating 
under the UNIX operatina system using the INLRES data base 
management system. It is written in the QUEL query 


language embedded in the oroaramming lanauage C. 





MN GENERAL VIE" 


The system is composed of three orograms: 


iin pogranr ( isısmain.c ) 


li soror s written im the language C. Upon login 
as "isis", main is executed automatically. Then, according 
Mauser instructions, contro! is transferred to one of the 


Aaa rams in figure 3. [sismain.c 1s very straight forward 


and needs no exolanation. 


is jenaınsc 
main oroaram 


< “4 RD XD s“. Y O O O O y W d P “G G G WP dP W d d d d d Y O DO Y O uum G“. G W d A Y O A s. O DY um 
' 0 
f f 
I i 
! ( 


ga DO ee ese WW y O E ME M M M M M 2 -< e O Y M M M A Y A E E ME ME EON E J 


i s reo i t adm.a i 
! Search oroarami iAdd-Delete-Modifyi| 
i - program 


Paure 5. [° IS oroaram heirarchy 
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Pee caren Prooram U sre.g ) 


Tnis proaram is written in QUEL (the INGRES query 
lues) and Cs It does a search of [SIS software listings 


Meeeoroinc to user aualıfıcations and displays the results. 


E cu eee-ÉudityvProaram ( adm.aq ) 


lNENSNrDccumesU3lso written im NUEL and C. It allows a 
user ES aad new lıstinas to the system. It also allows a 


msc lmo originator to modify or delete an existing listina. 


MS Dato >otructures 


orme iole ISIS aata structures are described below: 

a. he relation "recorafile" contains a master file 
of the listinas, with each identified by name and unique ID 
m per (RID). 


scm orsmatwonecabout where to find the software 


earresooncdino 120 the listinas is 1n the "whr relation, 
Mlentified by uniaue ID number. 

c. The main software characteristic classes are the 
Ale les of the "maintable" relation. 


SEU sable Set of moe" relations embodies the 


(ee structure. 


E 





uaeneneodesceltuaoonEeontsa1ns: 
Pe e1stima nemes and 10 numbers. 
annor 
co. Tne names of denendent node relations, 


Meni ucc s of zero; 


pee Oe ARCH PROGRAM 


l. General View 


Iesseszenzbsroeram Searches for  listinos of existing 
Software meetina the characteristics specified by the user. 
The user soecifies these ov ansuaerina auestions posed by 
ENSIS. 

System execution is slow even when the listing database 
E shorti Eo -OreVvemera dona search over a short list, the 
Mim y oe willing to scan a list of all of the records in 
muon system. For this reason there is ən option to display 
EN records at the beaqinnina. 

A general flowchart of the search crogram 1S given in 
Maure 4. After the user specifies some qualifications, 
the system renlies how many Pst tings meet the 
qualifications: tne user may then either see the listings 
whicn meet nis Qualifications or he may change his 
EuSI13f11cat!ons. 

After one search has been finished» the user may 
continue with other searches or he may exit from the 


System. 
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"m" -e brrr un. 


Y -- A œ 


main stc.d 
prints introduction 


— oo mm ——  —— - — - — — - 


ET 
counts # of 
listings 










branch help 





qmainl( ) 
prints general classi- 
fications to begin 

qualification. 


qmain2( ) 
prints present qualifications 





begin qualification 


at the beginning 
( ext )«— help branch preserving present 
qualifications. 





displ2( ) E qsls2( ) deleteq( ) 
display listings. further qualify. delete some 
qualifications. 


un HÀ À—À 


Figure 4. The general flowchart of search program src.q. 
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Ihe functicnal diagram of the search proaram is shown 
a figure De 

MiS cer code tor the search program is Contained in 
three files. 

Seo we src. a 

[ne code in this file performs the actual search; it is 


Bomoosed of the following functions; 


Tone calls, Introd and masrch. functions. 

Ie its the introduction and invokes INGRES 
Wena” the SiS database. 

Mic a lis Che Search routine, then exits ISIS. 

search: monitors the search process bv calling 
mume f toms. 

count 13 counts number of listinas 1n the system. 

oL. disolays all listinas in the system. 

Tot mon tors the Qualification process. 

Smells]: eBessrelatnons nto stack |. 

asise : one by one gets a relation name from stack l, 
qualifies it and puts results onto stack 2. 

eme Emoni tors tha rest of the qualification. 

r esln copies stack 2 to stack l. 

ata o rRiAts current aualıfications. 

detetq:  deletes aualifications from stack l. 


Isaias 1 stines according to qualifications. 





Meet ashe encsre. 2 
EX P.ssSInceludeg9wn src.dq at comoile time. 


The reason the search oroaram iS separated into two 


files, SPC ang Penes resar S thot the EQUEL precomp1ler 


Mees mot seem to work correctly for long source files. 


sile Srovides the following functions: 
disa E die ays pb ie Se Guali fications -- 
ANOS. counts taole5 tuples. 

mcus: | displays Jistinas in tables. 


getnm : aets a listing number from terminal. 


ee File Gomis cl 


MS o IS common to both the search proqram and the 


Ada-Delete-=Mod1fy program. It provides tne followina 


mometions: 


of 


SIDE: evaluates the first usage of search proaram. 

helpis: Braints information helpful to a user who has 
Boss wy s. 

greadc: gets a character from terminal. 

areacdn? aets à maximum of ten integer numbers from 
terminal. 

msaer]: prints an error message. 


Intohe: SINS iS ls Pin tformation of a general nature. 


Ec »pescaftications of the Search Proaram 


A search is oerformed by specifying the characteristics 


the souoht for software. As the search continues, these 


MimeractericticsS are successively refined. 
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Conchis done on a Simulated tree Structure. EVERY 
node of the tree is a relation. The root of the tree is the 
B nwutsble relation. ln order to beain the search process, 
a user must choose at least one branch. 

era US in Fes t1ion process uses two Gualificətion 
Stacks, each 25 elements lonar SO the user can have a 
Men imun of 25 qualifications at any one ee otack 1 is 
used as the main stack, Stack o is used as an auxilary 
Buck when Changing aualifications. 

(Ci stack record has two fields: 

ae Qualification name 

n3 t catyounwtvbe, which has value M , W or D. 
These cooes are used to specify actions to be performed 
when the stack is orocessed. 

Ms this qualification shows miscellaneous tuples which 
are tuoles with ID numbers areater than Zero in the given 
relation. 

DL struction tOo write all the tuples of a given 
relation which heave an JD nunner areater than zero. 

M osuructuondbodysplav al' tupbles of this relation 
which are greater than zero; there exist here some tuples 
Euch have ID numbers ecual to zero, meaning there are 
Kusi er subdivisions. So D, in effect, „ill cause branch 


uesconds to oe disolaved also. 


EE 





Iu ne cion dispPl2 ) uses stack 1 records 
ana aa O Nana to kthe Guúalification type it employs 
different methoas to find listinas which meet all the 
meecific aualifıcaftıons. 

To disolay Y ang a type aualıfications, three table 
relations namea tanlel, table? and table^5 are used. Table! 
meme tabled ars used for listina ID's Nm meet one 
quealification. Note that the disolay process is ən AND 
operation not an ÜR operation, so tables identifies 
listings Welch reet all oreviously processed 
EUSiITfications. 

Te more difficult to disolay D tyoe qualifications, 
which have branch relations, because it 1s also necessary 
mo fin: ana evaluate all listinas in the branches. for 
this reason» ın addition to the three table relations 
mentioned above, two more relations named tabled! and 
tanlead are usa. A11 Pis t ori ds for a aiven 
aus lification are saved in taoledi, and subbranch relation 
names are saved in tablede. One tuple is taken from 
tavled?; if this tuole shows a branch, it is evaluated and 
meee resultino listina ID's are out into tabledl; branches; 
Many, are out to tablede aaain, and the orocess continues 
until tablede Sie me Uy E At this time tabledi! has all 


ENStauna3gs which meet D tyoe aualification. 
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Unly cne user at a time can eroloy this part of the 
oroaram; Otererwrse “these ~tarles become confused. If this 
Situation is suspecteg tne user should check other 
terminals for amuser usinga display; then wait and try 
again. 

an one user may Ce doina the qualification 


orocess at once; only disolay must be done serially. 





b 


the 


aD | I [T =O 1 eyo PROGRAM 


Lis pronom ls used to add New NS mas tO 


system ano to delete or modify existing listings. A 


GP a IE TORE N aP E of tne prosram IS oiven in figure 6 and 


the 


toll 


augctuaonseleudiagrsecwo figure 7. 

The source code of the oroaram is composed of the 

Owing files: 

EM yl ey adm. 

lhis files oerforms add, delete, and modify əctions and 

invoxes functions in the other files. 

File adm.a contains Ehe. to) lowing functions, 

main I Go j co one and Branch functions, and ınvokes 
the aatabase. 

bhbrancn: branches to add, delete or modify processes. 


monitors add process. 


4. 


3d l 

aetoar: aets oarameters for a listina from terminal. 

EBorfwh: a pends listings to recorafile and whr 
relations. 

adguiris: S j) (Jr o ro relations bv callina other 
functions. 

putstr: outs relation name chosen by user on the 
Stc 


c pc]: DSi ren Class and subcategories. 


EE 





———!ÀmÓ— a  — - 





| main adm.q | 
! prits information 
| 


parameters from 
terminal 


Y DELETE-MODIFY . NO 
A E get ID# and 
YES 


{ 
begin ADD co e 
get new listing << — branch help exit 
| | 
i 





append new listing password 
to record file 
and whr relations 









Od e pe 


add listing to 
current relation! 











add to existing 
branch relation 








create a new 
branch relation 







modify where 


I 
relation Z 


- on — 


branch 


| dify descrip- 
delete all PR = 
G) information S D 
~ for a given ID! zen 


j—— P (CÓ m ER mms 


pe 





— a > ~ 


Figure 6. General flowchart of Add-Delete-Modify Program adm.q. 
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adadacur: AO rm O current relation. 
DIEN DC TTT T neily created subcategory 
relation. 
Fui TIE one of the existing 
branches. 
e. File encadm.a 
Ecole ais included in adm.a at compile time. These 
two files were split for the same reason that the search 
routine was aivıded; the ENVUEL precompiler seemed unable to 
process both at once. 
mle encadm.a has the followina functions; 
celmou: qets parameters, and monitors delete and 
modify processes. 
mermaumeedgerscalYsting IO number from the terminal. 
delete: beainning cart of the delete process. 
pEodir.—deletes a listing from a relation. 
mon fy: Deanin Na rart Of the modify Process. 
mdewh : modifies listina description and where 
MONOS cion 
er File com.a 
Beier contains functions common to the search and 


Aag-Delete-Mooaifv oroarams. Foarsmoresıintormatıon refer to 


meer search proarar on rage 5e. 


Ee 





2. Specifications cf Aad-Delere-Modifv program 


The ADD process user can enter his listing into 
existina characteristic relations or he can create new 
brarch relations and put the listino into them. 

Io s pi Oro SSS con Stack we to a maximum of 25 
Belatıon names. This coes not mean the user is restricted 
E uoutting his listings into fewer than 26 relations, but 
Esther that he can not have more that 25 further divisions 
maentifiecoc ang pending at anv one time. 

^hen 3 new relation is created as a new branch, the 
save command must oe performed. This is done in file adm.q 
Meche neworc (new branch) function. The date supplied to 
the SAVE command must be advanced periodically by the ISIS 
manaaer; otherwise, when the date is reached, the relations 
may De inadvertent!y ourged. It 1S probably best if the 
Save date is identical to that used to save other 
relations. 

DELETE and MODIFY processes at the beginning use the 
Same delmod function to identify the owner of the listing 
Euch is to He deleted cr modified. For this reason the 
Meer  aives a Listing ID number and the system checks to 
INNO out IA o S Spy record with. that number. 
Afterwards the oassword is checked; the password was set up 
urin the ADD process when the listing was created; it is 
En character. For examole 1t may be "." (fullstop) or any 
Er or digit. After the correct password is received, 


the delete or modify crccess can begin. 


ED 





DRETS PROCESS: 

This process teletes a listing from "recordfile", the 
master Hıstina relation, and from "whr", the where found, 
Nelation» and beains to search the branch relations 
EM rting at the root. “hen the listing is found recorded in 
peeretetion,r the subbranches of that relation are ignored. 

When a listing 1s deleted from a relation, if there are 
E more listings in that relation, the relation is also 
destroyed. If the oarent has no entries other than the 
aestroyen relation then the parent relation is also 
destroved; otherwise the child relation name is deleted 
from the parent. 

[he delete process emploies the same stack used by the 
mame process. The function dumwrt (dummy. write), which 
prints the too 5 elements of the stack, was used in the 
testing phase of the program and was left in. It can be 
reactivated by removing the two slashes  "//" (comment) 
Mos to  dumwrt(). By changing 5 to 25 in the "for" 
Statement in dumwrt, all stack elements can be written 
during the delete and aad processes. 

L. OI Y PROCESS: 

Mens only Oossible to modify listina descriotion and 
where information. If the user needs to moaify the tree 
entries for a listina he must first use DELETE to remove 
the listina entries and then use ADD to create revised 


pones. 
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bee On DE VOSISEMERATTONM 
leis Sect Axolains how tO install ISIS. o > 
requires the database managemant System INGRES which 
reauires the UNIX ooerating system which runs on PDP/11 


hardware. 


PDA TARASE SETUP 


The ACTUAL software database is named "isisO", 

If a DEMONSTRATION aatabase is desired, it should be 
named "1si1sl1". ^ demonstration database is not necessary. 

The datatase is created as follow.(The "X" sign is the 
UNIX promot symoool) 

MS mount TNGRES. At NPS this is done via a UNIX 
shell file, invoked as follows! 


EN Uusr/inores/sSvsmnt.sh 


Mone create database isısd: 


mereatdo 15150 


MmiyOorewlNGRES OOeratinag on the newly created database: 


^lnares isis 


BZ GRES promot is "ao x". 
Now create the main listina and location relations and 


EN root" relations for the atribute tree: 


Te 





Q O 


s UENMrecorsieüosmyEIPrnamezcleéó, rdeszc50, pswrd-cl) 


uectechpirid = 32, rdes - c50) 
EN ue sPmtspletcrname s cle) 
Mowe A D JA [DEU the root relation; must be loaded 


with the names of 1ts direct oescendents. 
For example, 
apeend to maintablelcrname = "computer”) 
Now, "comouter" is  apoenced. Branch names have a 


Er ocmum of là? characters. 


Aeris the maim table, create the corresponding 


node relations. 


for example, 


create comouter(ric leven mame =) ¢ lic) 
Mets Other relations which are used by SIS aS 


temporary storace Jurinc execution must also be created, as 


Mo llows: 


i 
N 
at 


create tablei(Crin 


ereate tablece(rid = 12) 
Weste “tableS(rid = 12) 
mpeete rtabledl(rid = 12) 
create tabledelcrname = cle) 


EX 





All the essential relations have now been created. DO 
NOT FÜRGEI to "save" relations up to a reasonable date, for 
examole l] year ahead. For example: 

S cd onae Until jan 30 1979 

Heceat this commanc for each relation which has been 
created. 

Now the database 1sisÜ is ready. If it nz desired to 
create the 181sl demonstration database, the procedure is 
repeated as anava excect that the first command would be 


„create 19181 
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B. COMPILATION OF PROGRAMS 


To compile the main program in file ısismain.c use the 
command 

^ CC ısismain.c 

Now rename the output "isis"; 


* mv ae.out isis 


To compile the search program: 

First use the EQUEL precompiler for the files which are 
used by search. 

4 equel src.q 


The output is in file src.c 


4 equel encsrc.a 


The output is ın file encsrc.c 


% equel com.q 


The output is in file com,c 


These are all C files. Compile them using the EQUEL 
library: 

% CC src.c -lgq 

The output is in file aout? rename it "isissrc", as 
follows: 

4 mv aeout isissrc 

"isissrc" is an executable file which, when invoked, 


performs an isis search, 
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To compile the Add-Delete-Modify program: 

First, use the eauel precompiler for the files which 
are used by this program. 

4^ equel adm.a 


The output is in file adm.c 


^ equel encadm.q 


The output is in file encadm.c 


The file com.c was already created during search 
Compilation. 

Now compile the program, using the EQUEL library. 

^ CC adm.c “lq 

The output is in file a.out. 

Rename it "isisadm", as follows: 

^ mv a.out isisadm 

Now, "isisadm" is an executable file which, when 


invoked, performs isis add, modify, and delete operations. 


Now remove unnecessary files: 


A rm INSI NS ME SCIC OM. E adm.c encadm.c 


Isis is now ready to use. 


Su 





es S pi TUTGRIAL 

Inis tutorial 18 orecared to aive the user a general 
idea of hos the system interacts with the user. This 
mec@rial covers the search orocess only? it een chanoe 
the system resident aata. It uses the ISIS demonstration 
Getavase named "isisl”" whose relations and linkage schema 
Ere shown in figure l1 on pace 16. 

Tlyoe one of the fcllowino numbers in " " 

BN SEARG TSIS records 
Meno DEDE IE or MODIFY existing ISIS 

records 
MON EOS QUITA" SIS 


Bo > 


B ouca3anseimstmrucetunonsi Software information System 
rrateten at NPS 
kkk when you need helo, at some key point 
11 11 


tyoe n tom cye re DIEI  Xokox 


mood luck 


por mere information type "yes 
Otherwise PUSH RETURN KEY go > yes 
EN SSoPrcdagram 1S an online software dictionary 
There are two major croarams: 
ESEARCH proararn? 

User can find existina software by conversing with 


mee comcuter. 
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A E E NOU TE Y orooram; 
User can advertise his Own Software by Istum leak 
Mitta) the system. Provisions for nodifying and deleting a 
E tina are included. Both oroarams are easy to use. They 
do not need Previous experience. Just type answers after 
Ec" marks. 
The oroarams are aritten in data sublangquage QUEL, 
Suooorted oy INGRES cata base manaaement system, and the 


E conrammino Ianauaae C. 


ayos one of the followings in 
nye to begin ACTUAL usage 
He aya DEYONSTRATION usage 


Qq0 > 


search in oroaress ... 


[mere are / records aoout miscellaneous nrograms 1n the 


System 


-lype one of the followina numoers in 
i to QUALIFY your need 
Pc to OISPLAY all the records 


mo > 


MUALIF vour neea 
Netos tor more of the following numbers in “ “ 
Sepnpapatinq oY commas 
You “MUST type at least one 


E 


language 





x x uptaereJACIEY x X  ]lanauaae k & 


Maio oacmorenors of the following numbers and/or 


in 
E algo! 
"2" pascal 
E WOU Go ENsotogusl1fy 
Eo >? 
l 
BHI Ur ther dDAaL tE Y kx MES nO X X 
l|issonecor more of the following numbers and/or 
En o" 
E softxwaretool 
E mi L 1 E S.P V 
K Hj iO C E CE JS other tnan above 
ND! to want qualify 
ED > 
l 


EERO now, your aualı fications are the following; 
E’ yol 


2o -soft«aretool 


oe ome of tne followino numbers in 
Lat uox Lomi) (records which meet your 


Sola creations 


“50 


letters 


letters 





Ve eo iG cmet SA Try 

fo Be Zone Of soul i fications 

a Be ed ETERTTON at the beainning 
REE beoresemo. Qualifications 


iii tor mot mow than above 


Eo > 
B 
MOTO now, your qualifications are the following; 
mee | 79 ! Aos NO more qualification) 
EN-softwaretool(has NOÓÜ more aualif1cation) 
EJ ocsomevofotne fol'owina numbers in " " 
DeL lol LER records which meet your 
aque i Ic3t,vons 
E tosfhuctner-QUAELIF)Y T 
EL 9» AE teeesome of qualyfications 
E oor 6I SUACIFICATTON at the beginning 
PRESERVING present qualifications 
MO Oo caes than above 
Bo ? 
1 


ER cess)inoOQ Qualification: algo! 


Processing qualification: softwaretool 


At 


MERO reduced to s 2 x records 


mmere are * 2 * records whicn meet qualifications 


De one of the foilowina numbers in 


EM N Er recordas which meet qualifications 





n Cot ek snc HANCE your gualifications 


Eo 2 

l 

ID z record name cles cIpDIDE qon 

55 4; merge E cerudese)echar cong records according 
to key 

EL cccocumtungesect s sorts AD char long records according 
to key 


Ecce one ot tne followino numbers in 
inp MENS ear tormat von to find a specific 
Bee Cre 


"2" to RETURN 


= Give only one of the ID numbers which have been printed 


90 > 
2 > 
ID š here 
ike > See orofo mith 


Ance one of the followina numbers in 
Mp uu ux dte UemmneUuon to find a specific 
re c o 


BE RETURN 


TO Mow, your Qualifications are the followina; 


Sco 





173laol (has NO more aualificatıon) d records 


Pecoftwaretoo!) (has NU more qualification) 2 records 


EU coconesoetecftollowine numbers in 
Eo" to DISPLAY records which meet your 
eis lit reat 1007S 
Mco tute BUALTFY 
MA s O jio oOome of Qualifications 
Ti eroureC lV VUALTETEATIUN at the beqinnino 
PRESERVING present aualifications 


E No nenita above 


= yoe 
one or more of the aualification numbers which have 
been printed on the screen just before, separating by 
cormas 
OR 


E uL tos want DFLETE 


EN Oc now,» your qualifications are the following; 


55 l go! Maso rescata iitication) d records 


mivoe one of tne followina numbers in 
ESI AEN d records which meet your 
cudimscattions 


K e her GUALIFY 


ZU E 





mon tod XE PE eameosogsluwWftycati!|ons 


up Deere ea Ton at the beainning 


MS op esent ualıfıeatıons 
MIN FL 5s pri cooOorheoep thar above 


Bo > 


ON LU Y Your need 
Moro ne tor more of the followina numbers in 
separotina by commas 


You MUST type at least one 


E" lanquaae 
Ec area 
ao ? 
2 
Ec further QUALIFY kk area X X 
Type one or more of the following numbers and/or letters 
Ec" " 
"1" softwaretool 
Nc military 
eee MLSCELLENEVUUS other than above 
ma NOT to want aualify 
Guo > 
A 


Bo non, your aualifications are the followina; 
a lao! ss I Fer aye l1f1ication) 


-military 


o. 





11 $“ 


Moe rtone or cme following numbers in 
IA A erecoras which meet your 
qualificətions 
Aer un IF Y 
ae TESIS ame of aus lifications 
K Go C [E U ADITI CICATIGNPSƏt the beainning 
E U Dr oresent qualifications 
B VEDI Nob then than above 


ao > 


slo further QUALIFY k x military Ak 


Ibero ne er more of the following numbers and/or letters 


in 

NE navy 

ma airforce 

ES NOT to want qualify 
30 > 
5 


EN o now, VOUN gualifieatıons are the fallowinas 
Ma tao) Maso pe aual ification) 


é=navy 


-Tyne one of the followina numbers in 
Bcc sus Peccnrods which meet your 
Eu aC tons 
E x sturthec QUALIFY 


D Pomorie te Some eoruwdual) fications 


= a a 





Dp 2 009 MMIPICATITOM at the beainning 
Rm u5EPosent Gualifications 
yo Ao Other than above 


aO 2 


T G TIE qualification: alaol 
T EET aualıfıcatien: navy 
TT pcint reduced to * I * records 


IM cro recordás which meet aualifications 


-lype one of the following numbers in 
MES Bes rLEerecorcs"which?meet. qualifications 


Eo pU S mno CHANCE vour qualifreations 


"o 2 

l 
ED. + record name descri ction 
MEN navigation ul onebppapdce ceruise 


xU »sUonevoft the followina numbers in " " 
NIE cct Mtoemation to find a specific 
record 
Ec to RETURN 


mo > 


MOTO now: your Qualifications are the following, 
l-alool (has “YA more aualıfieation) H records 


"ML e records 
-lyoe one of the followina numbers in " " 


E 





GO > 


elo 


EN once tne tollowina numbers in 


ao > 


feo lS 


Se a Trecords which meet your 
Curae we at 1 Ons 
C ones DUAL TF Y 
> A MRE n Of Qusa] yrfycations 
Det "om DUUAPEIPICMPDTION-at the besinning 
Boa wee Vie Oresent “Qual? fications 


a weer for other than above 


un oras ani return to UNIX 
wo" um mar 3r she bearamina again 
s.t to CONTINUE as you are 


Vae to ure ERRFATTON about ISIS 


has Deen logeeaseut 


aoocdtuve, come aaaın 
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I). ERROR Mao AS ES 


Io i i T cs (ommi print EQUEL error messages with 
ror. numbers and a little information during run time. 
meelanations of them can be found tn reference 6.  EQUEL 
errors arise when tne system relations are not in oroper 
form. For example in one relation there n be a tuple 
referencina a nonexistant devendent relation. This 
maemaition may occur 3f tne computer anes down or if the 
user gives un in the mioqle of the add process. In order to 
fix the system, the relations must be checked by the 
papacer usina INGRES cirectiv. (The UNIX command “RESTORE 
Gatahase name" should be issued whenever a crash occurs 
Mano aon INGRES oceration.) 

There are other error messaqes which are printed by 
EN tself dyge to „wrong arauments given by the user. These 
aera!!! self exelanatary, ang aıve the user another chance 
to tyre a correct zraument. In some places, if the user 
types the same wrona  araument three times the system 


Berminates. 





T cC 


maint) i IS OCIO the two ISIS prodrams */ 


Inta; 
imt iw ko 


It Ty es one of tre followina numbers in N" \"\n")? 


pmintftc" Na E SS. ListinOSNnN 
Em to UU enw listings, DELETE or MODIFY existinaN 
mobo tistines\n uM uos M MMMISIS5Nnoo*"»wvn"); 
r getil); 
mun == 134 
SO == 0) í 
c C (ic esmrmc5  sissrc"” , 0); 
exitt): 
} 
Sa (<j); 
} 
r (n == 2) 1 
J (s Prornmk()) ss 0)! 
Sesa can? 1is1sado +0); 
exit(); 
} 
Wait Ck) 
} 
iB ET zs. s) 
exit(); 


zug 





) 


T 
7 7 
y 
7 7 
IA 
I 
“ts 
fA 


/ / 


src eG 


I Nc oPtuarevblmtormation System (ISIS) 
INGRES datanase acelication 
Bee regrammaoes SFARCH portion of ISIS 
Mie e ae ol 5 1S tm file adm.c which 
wol OF Snad DELETE functions 
[nie tile has two includes: 
Jn rc src. a “coma 
F mise GOmmon tor both part of ISIS 


flaao-erase: erase stackl or not 
extern char ferase;, 
extern int xerasen: 


main (} { 


MUROS), As ISIS introduction */ 


ins ren); /* main-search begins x/ 
puncti" ISIS has heen lacaed outNn"); 
s LI ( aqoodby, come again\N\n' )? 
he exit 
} 


Ewtrodt() 4 E upaptseumuUuneduetYon */ 


HEC 


Chor Aa st. Aıntro, 


NIETO. STS means Instructional Software Information\n\ 


System, weitten at NPS Any 


skk when vou need help, at some key point type \"h\" to\ 

mF El **xxNn Good FuckNn"); 

erintft("\n Foremoresınformatıon type \"yes\"\n\ 
Utherw1se SAER ETUR AE YANGO »Nn"*)3 
intra = qreacdc(); 
nu rnis vt Vorname J 

aaaiíis: 
nt f ( = oem GiemG r he followings in A" ATANN 


RE Ñ 


K j d calm ACTUAL usaae\n\ 
NO ecin DEMONSTRATION usage\nao >\n"); 
isul - areaoc(); 
Ms o Z= 12!) A 
Jos 5 507 invokes imares database named ISIS0 
} 
I (10 5S0] == 12!) ( 
inares isis] // invokes demonstration database ISIS! 
} 
eer 50 t= TAT 
EOC git niponogcsrgument; th^v-againNn"J)?; goto  agais; 


eno 1ntrod() x/ 
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ELI uuUrouPsses3rch;moniTitors search routine x/ 
met me pente, 


rt = 'e!'; 
cycle: ASS Sato bedin ISIS cain */ 
rt = search(); /* Call main search routine x/ 
BENE IS.) ri ee ae / x TTT com. a %7 
Bee T E T T aoto cvcle; 
PEeturn? 
} /* ena mnsrch() */ 


Bearch() { 


aa char *cs, *rtse 
RS Tot trec, ns; 
Hm ur searchin im pDroecress ...vn"); 


trec = Goumt P(t rec); 
ere aro Za records 3bout miscellaneous 
pe cimoms mathe system\in", trec)? 


aaansl: 
Semtt( -lvoe one of the following numbers in N" N"Xn"); 
Printi Sal to QUALIFY your needNnN 
S Mos ASIA thre records"): 


J (ets == a") X 
ec DICO L againn"); 


a o EXIT ISIS and return to UNIXNnSN 
D ECTS Sat the beginning again\n"); 
} 
So on tt Nn"); 
pus = "r!, 
agains: 
Priget(, ao »xn"); 
cs = areadc(); 


Sven les) 1 
Case 1: 
et Ss =—amain! (); 
oreak; 
case tg: 
Rts = qisoll(); 
break» 
Base, ı5'3 
rts = 'e'; 
breaks 
esse "UT: 
ets lS p: 
break; 
ease h's 
Pt e = helrcis(); 
break; 
default: 
J ií ns < 


3 pendens nstTc; dwdoto acgains; ) 
else D 


) ( 
reak; 
C r rts =23 'q') qoto agdgansl; 


return let s ) > 
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) / A Sr Si Searcy routine */ 


AA Pe TetUrnGee of records in recordfile relation 


He IE OUrec; 
rec = Ur 
n Franoe of Fr 1S reccnradf1le 
au Betmnevezloarrec = count(r.rname) ) 


Beturnlötsee), 


ASS tt) 4 7/7 a1soclay=first!: executed if disolay is 
J7~oepeeuestec cetore any Gualification 


5d Sn uM des PPSsmetis$l, *rt cdl; 
uA int rria} 
T T IS 
E EL T EIT EIT are the follow)ngs;Nn"); 
Sip vat ti. 1 le record name Gesetuet lonvna U) 
E agr crecerdfile 
Ha Petrieve (rrid-zr.rid,rrdeszr.rdes,rrnamezr.rname) { 
SAN »erids, 1 »rrnanes” {",rprdes); 
EA } 


Neta (tala 


BE ARAN RRA RRA RIA RARA: 


V7 These two structures are used as stacks 
/ / mU osouwtecatyYon process 


struct stitao í 


RR chap Sst leitio, 
phu Chan *stlm; 
# int St lc, 


NEG EU Te 


suruUctesrtetad! t 


pe cC up TT 
E Char *stem; 
Hu Ink stec: 

eS o: 


E RARA E RAR RR RR RRE RADO, 





EX mM Gal i i Cation main: first time 
“SO l i cC tion 1S cone and search 
A es va this function bv calling 
“Ct er functions. 

S CP tC t stitac tostl; 
extern char ferase; 
EN -horemmeueli5l, *rtauer *rta» *rtsle; 


EE E nmnum; 
o wm Xy 1, 11 /*x not Oreceeded with 44 x/ 
np = Xnbuf 10); 
o ' + ADAN finished correctly 
'ferase = "Y^ | 


Y) comi east aeck acain without exited oroaram, 
17 initialize emty 


ee S xstl io); 
Dass Cdr jtt) 1 
Pa == UL < 155 1144) Berl->stielmlil)j’z." *; 
Bstel->stin 2 t; 
est ltt, 


ead for 1 */ 


aaasin: // comes if want to aualifv without erase stil 
Se Xn =o AL IFy your need Nn Type one\ 
HNuEncpectoftethecftoellowinao numbers in N" \"Nn\E\ 
separateo by commas\n You MUST tyre at least one\n"); 
zent manntable relation to beain aualification 


nmnum = 0; 
E ranaqe of m is maintabhle 
Hi Ho cx mnpamews"Umecrmmame) -1 

SR: Bel STL A 

RIO C Nac As\n", nmnum, mmname); 
Hu } 


cce neuu ron the terminal and outs in array. */ 
rto - greadn(&nbuf [01 ); UNE On reads Tmouts */ 


BENE uc. o Jot rteua s 'e';' goto endqua;) 


Me lativon name on stock! 
erelsit &nhuf 0l); 


est! = Nest LI] > 
Msl = gsiscelsmouf (01), 
Bauen E raus = ve’, aoto enaqua; } 
nuca ararnelsoabuf (01); 
MA DA: ferase == IN’)  aoto gagaın 


enacuas 
c 
potourn(rt^4uo)J; 


} / x eni oumain k / 
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ASS E /7/—^put-relat|on-sta3ack«l1: outs relations 
cess NSNMosarrsv onto stackl from maintable 


ru 
A E 


te 
C 


gt 


wh 


ra 


-ð . 


} 


1nt A UTR. { 
extern ehar ferrasse: 
extern int eraseo; 


Yt reinum; 

char tmame{15)];% 

yo cu» 

Charettiwr, <flrun; 
SA UCF stitaa srt my Stowers t 1 LU; 
MAS 3 i 
"rene llor c NO 
if(ferase == 'N') { // needs adjust stackl pointer 
Sn = ff, ,stlo=>stim=="M’,sstlo-~>stilmss'w' ) 
Sule +, 
eraseo 
ferase 
) 
else 

erasep = 
relnum = 0 

range of t 18S maintabdle 

nd cuir tun) 

I rin ie oO (toome t.crname) { 

relnumtt; 


Tunc 


St, Os e ia main */ 


ZN ri; 


0; 


`. 


1f(*arrp == relnum) i 
(1 0; (St e>s(olmíiylšcname[iiíi]) $= "NOs ii t+)? 
stic->stielmlii) = '\0', 
O = p; 
Sale rrot; fler = 'y'3;)} 
) 
BC pass j! mn") 
A A ae A a 
else 1 
E o on) 
mmu acia Palument \ mx ys discardedin”); 
else 
J (e or pr == 99) 
Vir onamanrcumemt NX nx” 15 discardedin”); 
else 


, 
orrot utlrum.= "175 
pee Ae mG els x 
relnum 2 0; 


/k eng while x/ 


Return, 


j 


Oe fprolst() ı/ 





mo se ENG Ute) Ia an >= ron Stacki=to stackc: 
NAS AS tion Ey stl ard puts on ste 
// and covies ste to stl at end 
not xime s i 
Sot viet stitao tostai; 
SUC suc p bota, 


extern art teraseps 
22 int rum mi eri; 
Doct Enn te Pt; 
eu cC rE ceo] lo) tcrnamell$5l, *fliste; 
NE east) av. «~fism, *rtald, *rtar; 


/x initializaticns of variables */ 


tepmane lls) = “NO”; 
Bao iy fas ise() executed correctly */ 
SA SO Asa ste 10); 


reer Cesirmea Cooy present stackl elements to stacke 
if l(erasep !=3 0) 4 
anile pSsStal < erase) 4 


Donc IS eX 
OStac->steelmii} = ostal->stlelmli); 
Bayer erem = Bstal=>stin, 
pstal++; Bstactt, 
EE xcmoewmile- */ 
erasep - 0; 


o t end Tf x 


while(pstal->stlelmí[0] != ' ') { 
f$ — Ü ° Da e 


flsy = n'; flsn = n'; 
NL sIe;34*-:) tmprelii) = * *°; tmprel[12) - 'NO'; 


/* get a relation rame from stac«l */ 
tes tal=>»stim == 'D') 
cS ETE les 4+) 
eere lmn = ostal=>stleim(il)-; 


} 
else { 
E ANNA Copy it from stack! to stack2*/ 
"cuc  < le, 44+} 
Bewtec--stecimiil = Ostal=>stlelmlil; 
Mae => St 2m= mstal=>st lm; 


Seal 
uuo “enawh i; 
Ju Arena else x 


hf monade ol eo 1S. tmorel 

HH retrieve (eria - e.rid) í 
IB epridqi Z= 0) IMs I-A; 
else EU ems rt 

SH } 





DANN NU VNENSusudlVWMSVoOohns previously marked as D 


Bee T j ji] =< LT) 
( 
EE e laico on stacke with * mark 
TOA IS be qt) 
ostac-^stceloí(il = pstal-»stlejimlii; 
ostad > stem =>, 


Os tec o 
Es iia relation marked ‘M* will be displayed 
Aa in aratna in Seo lay 


Goro naw: i - 
J 7k end 1f € 


yee there may er may not be some subdivisions 


else { 
EXE ssturtherpr9SUUAEPIFY ** six An",tmprel); 
Ice ome or more of the following numoers"); 
aan anZorslertters in N" N"Nn"); 
} 
prupm = (5 
z # retrieve (tcrname - e.crname) 
22 where e.ria = U ( 
Run +++ 
Eoiní" So isn „eenuümn. tername), 
Ba} 
mecfisn == 'y') 


me mat f ( '' Meer Aa NEAS other than aboveNn"); 
orintf(" A PIT (i SPO jo T i fy Nn»; 


ZEE So ner to nornt to beainnina 
Dhuuftt = nbufb; 


nucrocscoreadnmtnbeufbtJ:; 
Nu e ttrale = ‘e'> coto endale; ) 


EN ccopcsumeMtocarrey values, out correscondina 
Zu pejetions on stacke 


mondo xppufb- 's-0) { /* wbile 8 ] x/ 
mit xmtyfb..ss 99) Z q oi; HOt want to qualify 
doto endwhi; E e Spd Gs lsa C) 
A Ia a due other than 'n' or 'm' 
NAS AOS xmhufb ' 0) í /* while 2 */ 
PR Came For relation On Stack with D mark 
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pum xU, rale = a 
Ana A 20 4 Me 5. x7 


PNG tir; pum = U, 
ue retrieve (tcrname - e.crname) 
at where e.r1o = UY ( 
pottus 
IpuuUumnme-zcescutbJ A 
Deore sr, irre) 


*ernsane Is 


pstac-»stóelimlil 


cstac->stecm = DE 
nuc cr DLPcTOxhbutstt; 
} 
“Ë ) /* end where x/ 
} Akr epndiwni lest 5T 7 
P ADUD = oO) Continue; 
else { 


ime cnbu Ets) 
Fi r we sorming=wroma araqument 4d or n 1S N 
Gs sarj c n eknbufßb), noutbtt; J 
} Z ¿eno while 2 2 * 7 


MS ANA means miscellaneous */ 
Nela tion name on stocke with 'M' mark 
Ban 2053 Ss 1357. 9 ++ ) Í 
ostor aSr elmi] = tmorel (i); 
} 
Bstac=>stöm x 'M'; pstagdtt;. 
} anto zz 9BR)-*/ 
lett waite) f=) 0) noufot+; 
} Z m S huhu ie A 
engwni: 


pstaoaltt; 


} torno Rate at the beainnina */ 
eescsi(); MAS SIS Maca tro stacki */ 


nenita: 


É 


terna asisel(rtalie); */ 
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cosesrt) i Nc -srtacile€-toestockl xx 
4// erases stackl, cocries stacke to stackl, erases stacke 


Struc t stitac no! 
strich R aa xcv d, 
Ez ect is Jl; 
e J S n SI TO; pocos toU) s 


Zo clc to ces ía copy with a clean stacki 
HUMUS | Seb, j +t) 4 
opie Used < Le; jy la +) 
Gower stlejmi{jl)] = 0 13 


SONAS 5, 
Baer ber Ü; 
poli; 
; 
egal = sell], 


"cooyestacke to stackl, anc erase stacke 


jJ = 0; 
aane Co as 25) E while # 1 x / 
u =o P n D' i4 poé-»ste?m--'wW' i1 po2?-»stemzz'M') 
EE DUE EA 
( For a Jl++) 
ool->stlelm[j1] = po2->st2oelmí(j1]; 
pals>st Im = poe=>stom; 
iS tC |C poc stec: 
/* erase stacke */ 
l a PO 
o= I cem l i =.) tj 
cod-=>stem = 
Doc"-?st2c 7% 
} 
else J = 25; 
ae +t +; ocoett; jtt; 
} Je end while 35 | x/ 


petuum, 
EE "ng cosesl x/ 





aersımztäcufne) IE WES ads tron= secondary x / 


art HOCU OOF? { 
extern Char ferase; 


Struct stltaa usc; 
£ £ Soria) *amert; *aecc+ 
int IASLLTOr Kar 
ferase - 'Y'; 
puse D = mbuftoo»; 
plece = <st1[0]; 
Suerte = C7 


meee race cele before oeqinning to print 

/ / En cedgdisieest")ons 
Por ET DEE EL le = U 
PILET == ce) ( 
orqual(); 

mart tC) NM. 9; 

Sat =—lyoe ome of the following numbers in \" \"\n\ 


pcd 


=e 


ODISEA records which meet your N ° 

ca | i fic3otionsNn"); 

Sin DC Nu NN cO C ftumther QDUALELTFYNn NES NX 

WS EB ome gualTficatYionsNn"); 

exp f C" NONE ptoESEPETNEDIUACUTFEETERTION at the\ 
Bea ANNAA RESERVING present qualificationsNn"); 

IE T PT TTT other than. .above\ngo >\n")3 


gee = areacc(); 

Sune  Cace). d 

case ‘1's 
Ser Ele O 
break; 

E <A 
eslseinoftne), 
oreak; 

case $t: 
qamórt = deletc(noftmo) > 
break, 

case 'ü': 
amert 
terase = 'N 
Oreax; 

ease ht; 
arert = helois(); 
break; 

default: 
msaer!();, 


it 
- 


break; 
} /k ena case */ 
Mesum =< Mout Oo, 


} /x end while x/ 
poturpooamert): 
) /* ena anaın? */ 
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praual() i A Ate cual)tications x / 


struct od erede 
E char *ümw; 
AR int k; ks 
oil => &st1í01; 
omw = poıl->stim 
mE ns ls 9h ES dmw iz 'wW') 
( 


Sou have 0 oGaliticationsNn"); 
aoto enaora; 
) 
else 
INR to now, ");7 
A cup cuSEEestionsvarevcthe- followina: Np"); 
Mon ASES Co, trt) í 
FINES 
dmw = poll->stim; 
switch(omw) { 
cose 'p': 


amint f(d -%s oo > St le mm), 
roil stic > U) 
nt f ln DONE StNeswun»bolb--stic)J; 
se print \n"), 
break; 


case 'M': 
toga ES (miscellaneous; has NÜ moreN 
s coOsNoIS) , k,2poil>->stle]n); 
Ji poOo1]1=>sc8elcec= > 0) 
NI eco ras im + poll=>stle); 
elsezerjartl" \n”), 
break, 
case 'n!: 
pn ds sthaswiü'more-qualificat3»ons)"N 
ss tiem) 
Katpboatl=->stie > 0) 


pu pttc" | CS INS SN vy O01 1->st 1c}; 
else printf" Ap“); 
break; 
default: 
pose cm 
break, 
} end Case */ 
rO 1 L pet; 


} /* end for x/ 
B0 20 0 4254950 many Guala ro fit screen 
ppt ftn Pome wi RUSA RETURN keyNngo »Nn")7 
areadcí(); 
) 
ees ; 
Returns 
} Ean proua 
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erue) CLE epe 17 


STE HIE sStltaa *ptrl: 

Ra Grarereltmmlisl, *rtdrl, *fldmw: 

B 0 UU SN 1 | Gat ect Sa, dcCdum; 
pudo = mern Titab = I; petri = astl lO); 
NA A A 


MS OY stacki element to temo relation name 


Is E ER relramllJ =" '; reltnm [i2]J='"\0'; 
r A E ES E Faltan ti = ptri=>stlelmtI], 
ado 17: 


MAS Dee t idmwe= om E TC RSS TE RR T lE ap <= 2) 
( 
i t DISeessinog qualification: "); 


for | e Oo] < 15; ++) punc TEA T 7 
mus mu emt) 
Lo range of w 1s reltnm 


Su echara) + 
case "b: 


un css fauttabp,prrij; /* Me ena SAC q */ 
A 
break, 
ease, Tl’ = case 'W': 
miUotel=>st le == 0) 4 
ctbl - O0; 
L ranae of dl is tabledi 
E aomegostanledqi(werid) where w.rid > 0 
Bn poc cuIeecount(id!.rid) ) 
z z delete al 
SEAS Cthl; 
L 
EAA a T ( 
EH append to tableltw.r1d) where w.rid > 0 
} 
NI CIE SP) X 
EE acpemne cto tablec(w.rid) where w.rid > 0 
j 
fltab++; 
break, 
e er case s 
etm i + 4; 


L Or a new record from stack] 
Kalt [ol sr tr; a Spot] 7 


ie 





ONE NL mweltpmt)]  ptri-»stl]e!|!mtil); 
ptri-»st!m; 


Toril 
flamw 


Mena 1 ie. Z 


iflfltac == 1) /* means stackl emty */ 
í 
poc 5 b you have no qualification to\ 
disclay\n"); 
aoto endais; 


) 
5 j| Oo c2)1v79tablel as records, cony to tables 
a ranae of tl is tablel 
uu Sera orales tEl.r0a) 
m delete tl 
) 
MASAS 7x30 e| 95nd table? have records */ 
H3 range of tl is tablel 
A ranae of te is table? 
53 3 er NO toples tl: rid) where tl.riu = t2.2rıd 
Ë # delete t! 
pH delete te 
R 9 range of t3 is table 
ev So enteo), /* in file encsrc.a #/ 
if At this pont recuced to *Ad* listinas\n", ct3d); 
etsad == 0) 
{ 


ere 1S no listina, which meetsA 
&üəlificaəations\in”): 
Hk delete t3 
aoto enadis; 


} 
else { 
4 append to tablel(t3.r1d) 
t delete t$ 
fltab = 2; aoto aaai9; ) 
reis eng ıttltitab == 3) */ 
z05tb505(); 2 rp iilerencsrcsa */ 


enddis: 
, 
etu T Z 
} /x end disple */ 


ce 





osguusupencsnssldlgd uuu sASSSSZESIIBSASSABSSBSSSZZAA 
A7 enc os peto Sr c Cc 

Nc EOS cmt); 2A5stb5(), disc() 

y the reason this oart is Separate is that the 

7 ecusel orecomoiler does not work well 

/ / toral oroe programs. 
AC ude "encsrc.c" 
EAT III IE AI [III II 1 III DI 1111/17 


seletaí(ofot1l) "Ex ceuwessualuwnest)one*Z7 
Jut OO 4 


struct St tag kS [O ; 
St puc t Steta X Sm 
e A is pend: 
ER char AE l x > 
sup zcssetiTOo]s s20 = s210]; 
M Orin tot l, sloend = slp + 24; 
rant 1 << NA -Type\n one or more of the\ 


Uca ten numbers which have beenNnprintedN 
on the screen just before, Sseparatina by commas\n\ 
A ant to DELETENA"), 


rtrix 2 areadn(bfpr2): 
ote = biptl> 
MA Zeetorenedrix; else rtrix = 'c'; 


// oegin to erase corresoondina stackl elements 


Z/- 99 means n; not relax 
ml (p (pr “= UK *bfoti 1! 99) { 
SI o O El vx to-adiust p. */ 
// check cointer limit is not exceedeo 
NS spend) 4 
oepimttfe \m warnına. large relax aroumentN 
JS pai scardedNn), 


Seo Ec Ce = +sbfpti; bfotl++;/ continue; } 
or 1 IE 

sia=>stjeim ti] = * *; 
SS Zen 
au s JO ie s, or |; to adjust oointer */ 
Ef Tiri; 


} /* end while */ 


Baal = ofpte Rx bfote == 99) Geto endr! x7 

// to compress stackl elemets 

// cooy stackl elements to stack? (except ones X marked) 
wnile(slo <= stpena) í 


s r s (jn [p s sSlp=>stlm=='!M' +. slo=>stlm=='') 
ros 90,3 € Le; l*++t) 
s-o- >strelmlil = sip->stlelm[il;} 
ser za pen - a oe > st lm; 
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sen*->stec = slo->stic; 
Geo tt 
Pees enG if x/ 
Slort, 
) /* enr! while x/ 
"second, copw stockc to stacki 
ES cs) 
enar]|x: 
, 
peturntirtrix):; £ 
; /* end deleta(bfotl) x / 


meee yy ISIS SASS TASSASTSIS ITI SIS IIIA ISI T ITA II IIIT 
MORE” 1s common te search, and Add-Delete-Modi fy; 
// includes cylbrc, helois, creadc, greadn, msgerl 


zx ciudcge "com.c" 
K 7 I T 77/77/77 77/77 ////7//Z///7///Z/////// 


e 





SG S e G 


a7 ak MiS man tene losure to src.a 
17 EH Oa a AS search sart of TSIS 


ELIUED S0) d —* count-tabple^: * / 

Baier ftren file sre.a function d1ispi2() 
#3 int ab6x; j 
SUC ranoe of t5 is tables 
"E retrieve (abx - coumt(t5.rid) ) ( 

HA } 
return(aox); 
mee end cnttost) */ 


Us tb) 1 so lay >= tables:. *2 
IE SON tTtie src. a function disple2l) 


Eh char hraesí511i!, hrnameí151, *sorc, *rewhe; 
BA iot hrid; et Sy 
ee Di sore = 4°; 
R 9 fange of ts E toples 
BUE nopucucNIt5Usacount(t5.rig)J ) 


if(ctš == O) { 
erimetr(" There 18 no listina whichN 
meets gualifications\n"); aoto endt 5; ) 
else t 
r Mere are *23% listings which meet \ 
aus ouc3dty)onswr-ct55); 
Erontf("Nn"); 
EXE “Oe ome of the followimg nümbers in N" \"\n"); 
ELE UPOU IN to SEE listinas which" meet 
Sua lit TES tion Ss ANN DT Ze IDPh Sd RANGE voturNs 
zualıficestions\nao >\n"); 


Basar i cxsonc-'z 'g') 1 
sore = opeadel): 
A ls sono si *2t') 
NES re uments type l or 2 onlyNn"); 
) 
; 
sore ==.) ¢ ) Coto endt 3; 
Pipe f(s RD cs record name descrit ionin")? 
#4 # Pande Of F 1s) Fecorcfile 
HH ucucUcMDEMd-PIPdPtERdessr.rdes,hrnamezr.rname) 
mu mere pid z t5.rid í 
EI uu 2d s Sis ZsSNm",hnrid,"!",hrname,"i",hrdes); 
gu } 


orwhr: “kr jo Du here info. */ 


s 





DEO DU un. 
pu" DeXonevotthe followina numbers in \" \"\n"); 


poenmmttt" NUN me eeN EFE information to finds 
nuspecofuc9recondN:n Do NCEPURI NDao » Nm"); 
PO c6 cQ = 
W sen xoeto endt 3, 
|if(rewne i2 '1' X rewhe !- '2') 4 


pU wronmewsrcunentsdiscarded and RETURNED\n"); 
ato renato; 


) 
// if rewhe == '1' to see record where 
puesmt tfi" -Give only one of the ID numbers which haveN 


cecen printed Npoo >1n )> 
heyvd = getnmí); 


gi Fan four si asTwhr 
Es: retrievelhrdes 2 wr.rdes) where wr.ria = hrid 4 
E ADA where\n"); 
Spp tcc ES oN sine wee hrdes); 
Hn ; 
goto Fruhr, 
endt 5: 
, 
ER delete t3 


, 


BE croldugysct (0) */ 


getnm() { /x* get-nurker: x 


En mt pne oL, pe; 
DO» 
pe = 0; 
Wome ecm. = getchar()) != 'An?) { 
J (sn =, ir 
AM 0: 
it cen Za DOC fn <= 9) í 
ol = on; 
pao AO + pl; 
! 
else { 
Sig ponmussruumente try adgoainNnao »Xn"); 
etc Rar) 12 "\n*) // erase input buffer 
Tel 979609, 
} 
} 


mei end while */ 
uurníoceg); 
EE. end oetnm(); */ 
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sucatitrb,presli) MRS So Mao transection *7 
Non ale srec.a function aispi2(l) 
int fire, rors |. { 


te amar or tmm (15), 
as int kO WC TOOD, Cte, 


// cooy stackl element to temo relation name 


ko U; kO « Le; kb6tt) rtnmtk6l-' '; rtnmti2)='\0': 
Jr (Oo = 0; k6 < 12}? kott) rtnmiíko] = prsi=>stlelm(k6] ; 
25 Bande Of Fi iS rtnT 
AR aopend to tabledl(rli.nri1cd) where ri.rid > U 
#H anpend to tabledce(rl.crname) where rl.rid = 0 


gu ranae of d2 iS tabled? 
Ha rance of dl 1s tabledi 


T9918: 
Eu retrieve (ctdà) = count(de.crname) ) 
Matera? > 0) | 


clooo = 0; 

Paa (C loo < ctae) { 
£ retrieve (rtnm - d2.crname) { 

; 
£ = } 
z range Of sl is rtnm 

HH BocoeugeEtotabledlsl.rid) where sl.rid > 0 
# £ appends to tabled?(si.crname) where sl.rid = O 
x aelete de where de.crname = rtnm 


Co OO tts 
ei eno while */ 
aAa end if x/ 


Ba gelete de 
meth == 1) ( 


UE aopencd to tablel(ql.rid) 
} 
else { 
2 acoord to tablez(oL.rid) 
} 
lu unps]-»et!|c == 0) { 
#4 noecceveltcetoge = countlolir1ia) ) 
ersıienetle = ata; 
} 
ae delete al 


} Mena Gisd(); */ 


TE 





C Om < Q 


mm EE T IITA IIL IAA SSSA 
K o or centaims comnen functions for 

WE INS EA AROS ram 

if 2. ADD-DELETE-MODIFY proaram 

E TITAS SIILI 


EN DPcUOOu«72evele-oranch evaluates result of first usage 
Mans ets retúrn valve to. exit or begin ISIS 


RE Char Kec; 
n Nn nie 2 
nc = 0; 
Saa ini: 


AA A a ad 
De one of the followina numbers in N" N"Nn"); 
DIAS Ne Some IolS. ancereturn to UNIX\n\ 
IN XN ONUEGINCLISISTadgs:imnNmao »Nn"); 
cc < Oreqcue () ; 
Sl í 
case '1': 
icu e) 
breaks 
case '2': 
cc = E 
break, 
ease ‘h': 
Seyi tc =hkowr you have onlv two choices Nn"); 
aoto aðainl; 
default: 
IE MAU Cua ST) Menos Se Ri) Goto again; =) 
else { cc = 'e'; break; ) 
} 
returní(cc); 
} MIE SEE routine £ / 


re 





EXE UM Re lp=1S 13: prints information 


Er C ir Pac, 

gu int nh; 
A A A 
again5: 
Fr lnti (Np "99 


ao reo the followima numbers im N" N"Nn");/ 
pur mt t erp Homes ei slosang return to UNTX\n\N 
NA EG Tole oat the beginning again\n\ 
m r-ccpNDUDNUESaS you areNn J), 
Jr (C sp l s uet) 
O see more INFORMATION about. 1S5ISNn"); 
[up E go» m s 
eh) = 6 p@e Cle la 
sot chief) { 
case '1': 


cn = 'e'; 
breaks 
case ‘ec’: 
ch - 'b'; 
oreak; 
ease '3': 
chos te", 
oreak; 


cce. 
infohe(); 
Chee Sr + 
default: 
Mah 5) Mahti ooto agains; ?} 
= et. 


GT 5 >.» 


else { ch break; } 
} 
return ci); 
} eng rotzhelsiıs(l) "x/ 


infohe() { 


wntft(" Rn sSszersaromıı sam online software "); 

Matt Gictiomary\m There are two major programs: Nn"); 
Aint f("1. SEARCH proaramsAn User can find existing\ 
Software by conversing with the computer.n"); 

Ep)Dntf(" ao ELE te, et GODLY DroarsmsNnN 


User can advertise his own software by lıstina\ 

Nwuitn the syster.\n"): 

ERUntf(" Provisions for modifyina and deletina\ 

a listina are included.Nn"); cerintf(" Nmiboth Oroarams are 

easy to use.\ 
You do not neea orevious experience. \ 
MMS Pe tan sners after N'"ao »N" marks.Nn"); 

Ent f (" The: oroarams are writtenin the data\ 
sublanavace GUEL, supccorted hy the INGFES \ndata base\ 
manaaerent svstem and the procoramrmina lanqauage C.Ainin”); 

Return» 
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pipe een, Fre ods max 10 chars, returns first only 


at GL OON LUDUM Sem. *ctempos: 
c n c U fO]; 
NS teno= derchart) ) l= "'Nn') ( 
IBN USUS P (¿cC o ctemor; cott; } 


} 
Uc epum). 


Srpeagnimarw 4/7 fF2ads max l2 numbers and/or letters 
"cms Commas, puts into array. 
// wax number value is 97 
jot Amar, + 
ma cham *Cerd; cp cpu fron gread) / 
HH m temteupDlbeetemoe,flitime, nel; cnt, nzero; nada)!n; 
int ANNO + 


naaain = 0; 
nartmo = nar, 
3 1 nr: 
o nos r mo, // te adjust pointer at endloop 
fltime = 1; 
memi 
cra = gts eo rnire cun q. tor qo */ 


ZEE cosas array *7 
POCA ZOO. mzero < 12} nzerot+) 
a A 3 
Bartme = nantmp - le; IIS Marto to pont. A/ 
ASAS oi the array to use again  */ 


eee Eaa >n"; 
while( (ntemol = aetchar()) 1 '\n' ) { 
muolmtempiste. tt 


A AO sS "nm": 
MIME in anrcay, erase input buffer, return 


Jf (t e pe == 1a") { 
Anar = 99; 
ciencia + cetecenar()) != !Nn') ; /* null stm. */ 
orero lee A s; 


coto end | Gans 
} Sk ang if */ 


S aout DUE im artav, continue other arguments 


if(ntemel == ‘m') { 
ars Sy 
nartt; 

SENE Uu metemar()) =={ " ') ;/*null stm.*/ 
maENUEIEDI--o'U memol s * *; continues) 
Ru u«-crno---owntJcagto eng!oop!: 

else 1 
III unundgesPaument- after N"mN"Nn"); 
erde rend 


= HU = 





Ao Tena ooo,» 
} 


/* input should re number, so ao ahead */ 
nene! = ntemel = "U 2 


Esch me Et 


case 1: 

cnt = 0, 

Me oak miemol <= 9) 

(s terna íf] ime = 2, continues») 

else { 

cd a argument, expecting mumber\n"); 

eraga =. ,23oto End! ooo, 

} 

case c: 

CUCU htt; 

If (Ge a temo lla (')' = '9Q*) ) ( 

C€ (Ps o 


* 


orintf("wronc aroument; very lJarge\n"); 
aoto enoloop; 


} 
.i1f€ntemol >=0 && ntempl <= 9) 
Weno ero k | 0st ntemol, continue; ) 
else if(nterel == A E 
fil ime = l: Breski} 
else { 


Shimer i wrona argument; J); 
poc sexcectynma number or NV",N"Nn"); 
Cr e; cotowencdJlootbs 
) 
; / * ena switch * / 


iri emo >s | 42 ntempbe <= 97) ( 


knar = ntemods ntempe = 0; nartt; 
} 
else 1 
orintf("wrona araument; very larae or less than 1n"); 
"ndum s Qoto endlocp,; 
) 
nel++; 
I (r elo l 11) 74 
s oí eí hari ardgumentsNn"):; crd * 'e'; 
aoto endloop; 
} 
7x end afíntemp! !s ' ') x/ 


/* ena while x/ 
NN ctemoc >= | XK mtemoe <= 97) { 
Mar = mtemee,r mtemoe = 0; 
} 
else { 
Simin ronaoralmemt, very large or less than I\n\ 
Queene itn aN ap \ owlf hout argument \n") + 
CPO = 'e!; 


= HL 





} 
enaloop: 
Dagaındtt, 


id 1 NM M cero == 'e') ( 
uu ripe one or more of the followingN 
Sameer s sym Y NN separated by commas\n 
iby one more time\n ); 
tttimeemel !— 'Nn') /* to erase ouffer x/ 
“h ie (Cntitempili = Getchar€)) $= ’'\n') ; 
Goto sera mmps 
) 
geruentcrd):; 
} /k end areadn(nar) k 


msaerl() í 
pont youEmustetywoe ome of the characters in N 
EE »wch9heve been printed on the\n termina) \ 
NA De No get helm intormationNin"); 
) 


I 
on 
^o 

t 





GH 
4 
rA 


adm.q 


(as sms | GRES date Dase application [ISIS 
EN cocco s PLUPOPELETESI#ODIFY part of ISIS 
[n is file has two enclosures: l. emcacom.c ERICO Ma 


extern Cher asnrel 11515 
extern int a 
extern uuu 3uNSUftLbiesi51).ftfldm.flilwhriS1]l,oassw; 


mano) ( /* acd-delete-=moa1fyv */ 


char IsVor), 

Vat ome 

Vn aN ea mic part of arocram does ADD, MODIFY\ 
os men d ctaonsNn"); 


39301: 


erinnert. So ema terio llou1na in N" NUÜNDpSN 
n ee So een Eee N HN 
dot uu c uMBSUUSERÁAT ION 4sasqgeNnioo »Xn")5; 
wovon ls =" oreadc(); 
posue '13') t 
)jnares isisÜ // invokes ingqres database named [SIS0 


} 
J (S Op <= et) 1 
inares 15151 NO es Cemomstration database ISISI 
} 
Bau St |! s n ejO] = 2%) 
mE cd \avronm araqument, try əQalnNn UU); goto aqadl; 


Eme) 
cnm 5] S7309-gelete-medify Oroaqram has been loaged\ 
mu boo by come adainin”), 

exit 


a2 





ZI memes to one of the 
Gee ot om, 
X C; irea? 


ns 


O í 
Exe D 
char 
int 


2 # 
gs 


pre 

Gm 
Gente C NS 
Sana, 


Mee one )J; 
tre following 
printf” NEEDS to ADD a new 
pie r amor NU ON pco mr 
AN A 3.1 
aaain: 
A O >in"); 
€ areaací); 
sw tchtc.)J ( 
case 'I': 
pte 
break; 
i e 
tlam 
pue 
oreax, 
A ee 
tldm 
i 
breaks 
ne 
NE 
breax; 
default: 
Paci Se teresaqeri (); 
else break; 
fete ORG Switch *«/ 
or pro E) nuuc 
Jf (r o po pc 
return; 
eng Pprench():; 2 


Information 


TT 


Case 


UO 


dqelmodí(); 


Gas © 
MET 


Gelmoatl), 


Cose 


O > 


m tt; 


OA 


it 
t f 


m/k x / 


Baal) t 

meee Char *Prtas 
rte t s 
Er ptor 
aetoar() — 
Speer Vi 
Pb Tale, 
rent en) 

endadd: 


* 


, 
Na ly 
} AS mike Oc.) 


ADD in proaress 
cet-narametrers 
acpendi-recordf 
/*> goTUoerelat 

aoto endadoas: 


x 


nunbers 


an existina 
about. one orogramNin"); 


main routines */ 


1n Nr SENE IS 
Pest ima. tora new \ 
listingin\ 


Joro adain; } 


IAN SAS IAS “<7 


ENS O tor Mr 


Euer Es 


x 
ile 
ions 


and where rel. #/ 


x / 





"uM uget-pParereters for addina */ 
extern Tmt gnum; 
EDU ELM cr D cvedwseicest5l]. fiwhrí51], oassw, 
Gs m Eod 14» 
RH ehersrchtmeo, tfit; 
7 7 Ymytıalızatyıon of variables 
Toner] O; tra: = Us, 
Meio nsu z'NO'S;-ftiges[50] = "'N0O'; 
5 ranae of r is reccrafile 
p Beene ye as = max(r.rid)) 
Vamwn = max + 1, 
printi" Very important | Keep in mind\n\ 
Toon mes record 1D number 1s * 4d Ain"; idnum): 
E ase Thame amd tices to begin clean 
Korea eier re) MA O =. '; 
BIEN EIE 50; EE) Maes s y 
MOS E ceot incut from terminal 
orint f? =Live new PROGRAM'S NAME"); 
ore than lg) characters) Nn"); 
orintf("no not insert blanks between charactersNn"); 
Fir r (COSES Np UI 
i = U: 
Oro tas tacna ri) ) t= 'Nm*) i 
Mat == ca y { 
NA IA name ll = chtmo; 1++7) 
} 
NONNULLI QUU REST, 212) { 
"DM iaremaraunent, truncatedin”"); 
tiwt - 's'; 
} 
} Sk end while */ E 
Mimame tel = 70°, 
tl wt - Es 
uro mter t zoe new ERUDRATS US DESCRIPTION (NOTA 


more than o0 Characters, in 

i = 0; 

e R ehti = aetchar() ) 
BE E y) Pres (i 
btt; 

O I E o aR 4 2 50) 
nias Ona oraument + 
I A'S n 

} 

) /* end while */ 

clos tp s 0 


7 cone nemesrdes Input 

Pr yr t f C" =» Te) I WHERE 

(NOT more than 50 
IT a= 9 Gls 

1 = U 


from 
P 


5e 


BRes li ne)noco oND UJ 
PS MN Eat ( 

= (mD; 

( 


ppounc3ted um )> 


tena] 
ae a Troa ram Can be foundNnsN 
ERaraectearsıas6o >\n"); 





| = 


Pee Coemtmom=—cetchar()) t= "Nm') 4 


act wt p) Slane tii = chtmo; 
tet, 
Bee RS q > 50) 4 
Chim ome epgument» tmruncatedNn"); flwt - 's'; 


i 
1 


) /* ena while */ 
Seint tie wee orve one character Nn"); 
EE uM tower mew listina Ss PASSWORD\n"); 
Sp metro oO NN); 
Basens=rareade(), 


Mere end setpar() */ 


arten) Ziuscerend-recorafile append-whr rel. */ 
extern int idnum; 
EI nIEch3gcuumametlsl,fidesi51!, flwhri5i1l,; passw; 
ng int cmexı Ko. 


"su Ee TS BS 6 Lel 2 
cox cm psst0)} = oassw, So Sut a= XL 
Torn ko pO dk « gj k++) fnamelk]) = flnamelk); 
POSO SO? k++) ( 

Ade deskl} MS Ae el 


MU apoboenaàa recordfile(rid-cmsx,rname-zfname,rdessfdes, 


E pepe => pss) 
E enaar l ra = cmas; rdes = fuhr) 


MEA end a0rfun */ 


Meme iS Af ASASI LASSI SIT ISIS I IISS STAI ISS SILI SSS SSIS 


S Ü r uc t strtao í 
Hs char stream blo) 7 
stir [o5] ; 


Meee ISIS ASAT IAT SIS SI IIT SITS SSIS SIS I TSS SIE STS ST 


H D= 





dst) TE a eo’ relations: x / 


Qe 


Ved 
yo. 


Br 


Lt 
RH 


#4 


7 


A 
my 


SM rct Strt3ao *ostr:; 
extern Char qenrelílsl; 


ane mnum; 
GN n3neddome nadra kfl fin *rtor, *rtcur; 
USE Sao) ir jl, *tb; 
DOLENS DIDIT ommame lie] = “\N0°;, flfin - 'n'; 
prie c ET 
NOUS <feocoim without exitina oroaram, 
initialize empty 
foie = OP eE ao, jtt) ( 
IS LE) Os tre>strelmftj1] = ' ';j 
OS tty t + 
Ber (Onde tor. ks 


ncc ma table and aet Inout 


su ps C I CAO Our neu listina in the aopropriatesN 


cStecao res xo ), 


icm s Tvoe one or more of the followinawN 


numbers n N N NNOD separat ind Dy commos vm 
IE tyoe at least one\n"), 


pottus Se C r sl ort oert arms. \ 


you will aet no second chance\n"); 
I ol” maimntoble 
range of m is maintable 

[uU 


petrii even mene = m.cernasme) { 

Maui mh tp 
oem tc, N AGN 4s Nn, mnum, mname); 
} 


e U om terminal and out to array 
Bere ares in Sour tO] ) > 


Patrrarpr == 'e') I (or jn sn 2 7 aqeto endaar; +} 
emis mo ,peoenreltil} = *3'; genre! {fel S TT 
Ecc; ssenmner(t4l = *t’; aenrel(S] = ‘a’; 
Sweetie n  , —Gcenrelt7) = °1"; Ggenrel {8} = eT 
ANI i enmelrtaj-s * "3 aenre1 111) = ' '? 


Cie stemwstr to) pwout (0) ) > ¿AO relations to stackr 4/7 


PD IIIS SIS IST II SLITS IST IISIS SSIS ASSL AST 
wmile(flfin == 'n!') TE a means not finish */ 

EUIS AX dummw-write */ 

fna last element on stack to get, if emty finish 


eslre Strol; 
Mai a Stre mlU] == ' *) 

IA coto enano E/E stack is emty */ 
j = OF 


JtimeeGestr=ostrpeilm{O}] != ' ') 4 
j++; pstr*t; 
J j 25), 1 
EINE ime saddima stack overflow"); 
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Cen 64 eed ce > 1 tems. Nn) 
idoto endwhi; 


! 
Z< end while x/ 
DSi sir = Lj 


// cony the last stack element to genrel [13] 


NIME erect ye jj tt) entre? tl =“ pstr=>strelmljl; 
MI woccure | 1) Geno oor anc nh 
I  pocurci(); 


a Ac COR na fo return of peurcl() 
switchlrtcur) L i 
case 'l': 
addcur(); /*~ sad to current class name */ 
cs O; + Dos tr+=>strelmijl = * *; 
break, 
Case c 7: 
neworc(); Z. pew branch: */ 
// erase one element from stack 


EINEN 7 2/9; Gtt) rpstr->strelmi[;j] = ' '; 
break, 

case ">: 
FrrelsburlÜ),estr); “k existina-branch: */ 
breaks 

Ceo eines 

/ erase one element from stack 

Ncc 2 uImpstre*»strelm(jl s ' '; 


goto enoawhi; 
AA EA A ok 7 
enagüwhn1: 
lee fete == wt) 
pc" pDENMUEbDPOocess has been comoletedNn") 
e en while */ 
TAT T MR SPBgBgGgÀ/yKklMIMM BG 3,44 


`° 


eNJacdr. 7 
merurm(rtaar|)? 
end addris() x/ 


Eu wrt() 4 /k DUMMY stackr write x/ 
ri ct strtao *p5:; 
) y, yl, 
E UY write 
Soe stn lu); 
toriy sey < 5) ytt) 4 
Spat O d yv). . 
o Do PO vyl < tes yltt) 
See. 16, oo => Ss trelmiy11); 
Bar, 
n uonu^dunmmy' wmite en^à for l. */ 
Brian"); 
} /k end dumwrt() «/ 





putstrí(ost,onp1í) gr celatıon on Stackr */ 
asta tsi: pointers hefore call »utstr 
(ele *ost, *obf; í 
Prireopn ae coarse aenmreltis51;:; Z 
Struct Sera tosta; 


H 2 Ce AE E O a a urt sanomell$5l, *flrun, 
int Imm 
psto' 2 ost; 
Ione = SU, 
Boa Eu, F< ie; 14+) 
grel{lJ = aenrelll), SAS E 
Hz ranae of a is arel 
A o 
e A =) { 
mnum = 0; 
42 A ea er nana JA 
mnumt-t, 
[DUE "A i 
ODO == mumn) { 
A bt) <= le, J++) psta-»strelimí[!l] = anamell]}; 
psta=>strelmíl21 = '’\0'; 
et l P oo o fii; tlwret = "y"; 
PA f < / 
I. } 


== Pp.) 
PASAS )J-fVrun s 'e*; 
elce if oof > O) í 
uot EU opcCe3nrogment za discarded\n", *pbf); 
nuum OA 
; 
J end while */ 


metrurnn; 
} ena outsSstr() *7 


Ee 





Cure) 1 /* prsnt-curcent-class-ana-oranches */ 
extern char aenrel [135]; 


ig "pp copelTseilgStt$4],.-" *nles; 
dg Put ail, flwi, flex; 
peace joe om > flex = 'n'; 
uec x te, ait+) onrel!íqal] - genre! [911]; 
gare? tial = 'NO'; 
ote Nee anf DAS NAME is x %s *\n", anrell); 
Mom cu = 07 at) < Ver walter Hcc). 
flwl = 0; 
432 imamo í Ia Ms eanrell 
"4H Houma veMmUrelam=— Gscrmame) where g.rid = 0 4 
foley lett, 
lect == “ey 
oe meen SD 5 emp Gores arezWn"); 
cx cx uv 
) 
m RO orint f" í%sNn", relz); 
i } 


Saar oe con ly one of the"); 
Fils owina characters wa N" N"NnN to ADDN 
your isSstinaNxn”); 


Omar tC" Me en t tO CURRENT CLASS NAMENAN 

IM a e JUBSUSLATEOGONY and pot this into it\n");3 
eU ex zz) 

SUBEN se am EXISTING SURCATEGORYAn");5 

et cbc NEN None of the sbove; STOPN 


(03 SEriipoctionmypceo me Z 
ales = HEE al (1) 
ISL 1 6 51 2 
} k ena peurel() %/ 


addcur() ME "3dge-cumremt: sd to current record name 


extern ehose Faenrel 15), finametis$l;: : 
d di Nuda var 1dnum; 
ar Caan ost hinge ll Shs 
tt + int 1dnums5, ws, 
ara.) = nd’, muoagescc sex)"; 
[me compy extern to local names 
Jos (o O SS (2o; 13++) 
EE Lgs -ocogenrebbs5! ; name3li53] = flinameli 5}; 
Wenum S = Tanum? 
y / aes ecoOnc, tO Current name 
B Ao are ltda = i1dnums, crname = name3) 
return, 


} Ax eng aadcur() */ 


EIE 


) 





REIN uscebpanmceh: adas record to new branch 


extern char aenre] [13]), flnamell5); 

SUS J yt 1anumr; 
Hg char ora3d[ii5T],a8nameí(t3l,fünameí(íl$),*aüchar,*atwrt; 
= Ç ort ad, in'unum; 

jo [|o] end adurt = "as 


"m ppm Current Class name adain 
DH con inore to local aras 


fortad z 0: ad < 12; ad++) aradlad] = cenrelíaldl; 
CNS EN CLASS MAME is * Zs kin“; grad); 
Eme c I Uj O OP GO Y Sl pe a branch of\ 


Aerial AMENA) 
oriıntf(” -Give N EAGSUBCATEGORY NAMEN 
Inneren smalercharsacters)N\n.), 


orintf(” Co sept ANR between Char:S\n  )? 
emanal l Go 2Na )s 
aa tr. 


Vf e ipe Nare fror terminal 


ICI Es usse. ad++) alname la4] = ' '; 
aues). 
DEN 3demar = cGetehar() ) !- 'Nn') t 
ocu T (t 
EE enon E OR s 
M eaae’ achar > 2) && 
Cae nar r achar = 2') X 
Tico omc AaMiuchar > 297) 28% 
a Venom S= ter) 
{ 
oe aa A POndgVcapreumnent;N'"ZcN",try adainNn",aHüchar); 
while (a4crar = qetchar() ) := "Nn') ; 7/*erasex/ 
EET Arn; goto agatri 
} 
a4name [a4] = achar; altt; 
} 
} 
imagine ==] ware ad > 12) 4 
pM topgsareument, truncatecin"): 
Furt > ' S's 
} 
peers end while tZ 
ainamelfte} = '\X'; AGHPE = “q's 
EM capo" relation with new branch name; aüname 
32 create allnamelria = ic, ername = cle) 


, 

eE AU TETTISSIIISTIEILILITSLEISIILIIIIIIIIIIIIII 
Neun relations must be SávEd to prevent automatic 

E renowvedov INGRES. Ine SAVE command date must be 

memo Vvancecdmoemicaicaliy to avoid  inadvertant loss of 

Cata. 
ER save a4#name until jun 50 1973 
eee eee IIAP IISA SSI IIISITIS IIT ISATAS ISAS LASS 


Eo 





// appen'i recora to new relation aüname 
ZEE Ccombwsbwrameters to local 
wm4num = 10num; 


EOM MS er 04) tünare lad] = flnameí(adl; 
satt = NO, 
45 oa anne iria 1ainum-, crname 2 f4áname) 
f 
AA also anoenn to current class name 
ad append to aral(ri1o = 0, crname - aüname) 
c 
Fe L u rry 


AME ud newbrci) */ 


Zaıbreional,0sa!) 
Jk @xistina~branch: adds record to existina branch */ 
J tps]; xOSal; ( 


extern enarsegenre![1l3}; 
S Liu t strtao *rposad; 
B Ghan Pals canmametit15l:; 
int SL EDDA, 
Itaca 00? FF kesse = psal? pba? - pbal; 


Dorint branches aaaın 
copy QGenrel to local 
mou = Oreo <u te, ase) artalasdj) = aenrella3); 


IN [y oe tone or more of the followinan 
MUSSO TO selact süubcategoryNn"); 


HE Rana Sto rias te arla 
as = 0; | 

dau retrievelganame = aa.crname) where ga.rid = 0 { 
35tt; 
ZR E E I Ana aSr ganame), 

22 } 


greadnt{nnal); 


7 7 T TETE element from stack 
Ec H 2 as ++) pseac=>strelmia3]) s ' '; 


DH 5 j 5 TT E names on to stack 


/^/ adjust aenrel 
NIC 04. 0o: 72$tt) Genrellas) = arlaía31]: 


EOD 





A SS OS ace»? ass stack and buf. poln. 
mutstrlosac,obac); 

Return, 

mee end. -ex tore () aen 


E A CI gat p ISIS IIIS IT ILS ITI IIL ATT 
Ac des delmod(), aetrnum(), delete (), modify() 
Binclude “encadm.c" 


MI inc luces, cylorc(), helois(), aqreadc(), areadn(), 
msger1() | 
include "com.c" 
E A E A AAA IAS EOL SILIIEIIIISIIEIIELIIIIIIIIIIII!II!I 


so. 





enmcatm .c 


p EEUU wx:03ss9"encloswuwre to file adm.9 
n n sn op or A S el]ete=Modify part of ISIS 


delmoi() { 
/* delete-modifv: does common actions, and branches */ 
extern char fl1dmom; 
extern AE idnum; 


HA EET HID flow; 
IH TIG ITE E PTG P ame RT s Pedes [RU] 
aenar oSwllzl; osw2igl? 


timen = 0; 
beadm? 
Bagger = rt Benamelle) "N00"; medes(50] s 'N0'; 
rtdm = ‘f'; 
agadn: 
Spin oem TT NUMBER of your record, which you\ 


Ian a= 99D!) Drintf(" de lete 
SA NOCIVA Y . 
Or go 215 )> 


cold = 0; 
AR range of r is recordfile 
tlid = aetnum(); ZXEeremunoutecamd compute ID # x7 
Nono eoo fiftrmd = ns; 
az Ki Erotic re riq) where r.rid = tlid { 
, 
Pg } 


mum 2) ti fe means rid is correct */ 
nra L T UTE as 3. PASSNURDNNT”I, 
GTI ago, > \n" ) > 


pswult0ü) = qreadc(); 
flon =E); 
4 2 Pomo reos e => | Ffeoswrd) where r.r1d = tlid ( 
ıifloswl (0) $= osweld) ) 
ono password: ex1itedin"); flow = 1; } 
RE ; 
ODA l) Goto enddamn;i 
RH  retrieve(rcname 2 r.rnaàme, rcdes = r.rdes) 
73 Ue toi 1 
pint uL z record name Teser)ıptıonsmsan 
£S ape yd, rename, redes); 
taste listino vou are seekina ?\n\ 
Ic Sos gr N"noN"NnaGo >\n"); 
IN “iv Jes 
Bo } 


, 


EO 





en j (toy $2 0) *7 
timentt: 
GNE nde mw timen » 2) 4 
printf("sxrona ID number three times;N 
DOroaran extegin 7 


G e, Goto enddmi 
j 
MART Nna = mo) 4 


AY Oner Are TH EEE ŽAN”); 
qoto oecadcdm;:. 
! 


e if finas comes here 

ITE š 

flgo = greadc(); 

I So-- m 7 Goto enddm:; 

Bcc E DU to" Tpw*onetmore tjmeNngo- »xNo957 
coto findao; 3 


-+ 


jJ Jun = eid: 

HET TT Be)  cdelete(),; 

MA moda ty 00 2 
enddm: 


peturní(rtdm):; 
) “ano delmod() #7 


qetnun() i 
E esdecnar.s from terminal, computes one int. number 
33 NE rtl te; 
getnen: 
t= 50% 


Sa icetenarti)) $= 'xNn') í 
aa s n) í 


IN un = 70°, 
MOTO >= 0 Xx tn <= 9) € 
ti a 
A E DU ott, 
} 
elset 


Seite wWeoma araunent, trv aqain\nqo >\n");7 
i (r= Poor har) > Xn) 77- erase bout fer 
aoto qetnegq; 
} 
) 
| /* end «nile */ 
merurnn(te); 
EE * end getnum() */ 


2) 





qele 


/ / 
HA 


+ 
+ 


1% 


^ 
po 


aux 
7 7 


E 
# 5 


aa 


g5 
7 7 


// dumwrt() 


77 


tet) ( 

axtern nt irinum> 
extern emaypeeaenmce! {141 5 
ap CT St US kc 


int Palit fy fl; 
Girt mame ll al, affini 


A =" .imun: os? = &strt0]; femme O 
BIMBI EET 
detevenr com Fecoraefile relation 
pede of r aS recordfile 
delete r where r.rid = iddlt 
delete from where relation 
range of wh is wnr 
delete wh where wn.rid - iddlt 
ipitialize stackr emty 
HAS USAS ftr) { 
CS  fil++) “osd=>strelm(fl] = * *; 
OSs atte 
Bel end V. fon */ 
osd - &stríU0l; 


Moa as tacna ito maintable relations 
ranae of m 1s maintable 
Co ley of tt) DENS CIENT s 
pou cEUnameves m.crname) { 
IO relation to stack and erase fliname 
a I (0G tf Ss Io; ftt*) 4 
Sog=2or relat! = fimame lf); 
Jlp35mne[f] = ' "; 
; 
a 
; 
begin delete by usina stack 
Meier | Etlion im OFOaAreSS i..vn"J); 
Pcie == n 2 77 means stackr not finished 
Ai A xf 


if 
Mas element on stacx to get; if empty, finish 
Dod Str lv]. 
Mikgoce=-ectrelmlU) == ! *) (Í 
Ta Uo = ty 
Joto endle; 
} 
ge ce rs 
amulretosd=>strelmiv}] != ' ') ( 
fet escort, 
wos, 1 
orintf("ARMING: delete stack overflow process"); 
PIENE COM ymues, max 25S ¡tems.An”"); 
osd--; peg) 
) /* end while */ 
osd--5 
MIA St Stac elenent tOo genre) (131 
Or Si, flor | 
goo eluccosod-5strelmitf]; 
) 


E 





I k 


[ooo alee lete oy Dassingq stack pointer 
sano] e (osa); 
endle: 
; 
} /*x endi whila2 ES 
A aon aS neen canplered\n"); 
end delete() */ 


acodit losdit) /^* process-delete  */ 
int kosdlts { 
extern Ghopeeenre!] (1°51; 
extern nou | dnum; 
ST ruc stretag kc sd; 
BE int put 1s, cd |; 
42 Sai? lis, *fl]Əəl)t, qfname(15] ; 
A intialize and coov qlobal to local 
os3] - osdlt; mud tees dmm 
An NO; dínametll2) = *\0'; A 
mondeo dise Là; ditt) 4 
onditidil] = genreltdl];  ditrelídl) = ' '; 
} 
qteeel tle) = *\0'; 
43 Cone Ror daris analt 
n retrieve(dltrel = de.ername) where de.rid 7 iddlt1 { 
Kraemer, 
aA } 
DH if there is record with delete id # delete and return 
I (Ir S= y) ( 
ao deletes de where de.rid = iddltil 
31 = 1; 
45 Cite Cil counat(de.rid) ) 
) 
if(3] == 0) t 
pg destroy aad 5t 
H3 range of af Is Jfname 
# g Jelete df where af.crname = qn'ilt 
} 
DOCUISSE vt) ( 
EORNM; cditt)osdi*»streimid!] = ' '; 
GOCOs enao ro, 
} 
// cony stack too to dfnane to use next tine and delete 
Rome dice res. ditt) ( 
dfnametfdil - psd!i-»streimíg!1!:; 
oso lees urelmtali = % *; 
} 
ql NA o ans relation Out on stack 
BA DOE UBEEENES-Ss.ccname) where de.rid = 0 { 
far oE U 12; 4) t+) 
osal>=>strelmiJ1] = ditrelldll; 


oy = 





Osa t+ 5 
ab } 
e ry IO O š 


, 
EE. pc oroJdttt).-«*/ 


modifyt) { 
uH cnar urb Sx. fled; 


int 2, knl?n; 

Sm] s "NU"; 

MUN; fale egt. 

pipe UND [r oj ]owuedq to modify onlvyNnS 
CIE cma ESSI UN ND and\n\ 
IAE torna t1ionin )J: 

etf Ee vouUmWwant CO) GO Other than this use\ 


PESeewtomrenove\n the listing and\ 
than use ADD to create a revised one.\n"); 


Rah dele 
== ties <= 'e') 4 
print xn ME 
era veeronmesotrthe following in.\X\" \“\n"); 
Jf (flj — t) 

ra tc í O a Ne E TEE ENR TR T ONN R 12 
T E 

PTT toomodify record WHERE informationNn"); 


NDUtUU  N'nwv"-NDT to do anythina, and NRETURN\ngo >\n"); 


Man IS creagdgc(í);: 
olen = &4flien(0l; 
Switeneri lem {Gl ) { 
case. wi”: 
mdewhlolen); 
mu estt; 
oreak; 
pose a 1 
moenh (oO lean); 
mz 5! > 
break, 
Case, nm. 
Goro eEnemo a7 
mE aeneswuiatch *7 
MINA eno while */ 
encnoNn: 


° 
, 


EN * end modify() */ 


zone 





moewn let } / x modifyv-description-where-relations x / 
int tote { 
extern upto ntm» 


s art tanum Z? 
pe Gnabe Coes lolly, tcn 
tdnum = idnum; Sesto NO 
MiG t= — Jo x mWeans modify description */ 
att ranas ot fr 1S recorafile 
su retrievelodes = r.rdes) where r.rid = tdnum { 


Ni Present eroaran description 1S5; Nn %sinin”,pues); 
EH ) | 
perk ema 3f */ 


JI (a ot == 2) { /* means modify where */ 
5H range of wh is ahr 
Re retrieve(odes - wh.rdes) where wh.rid = tanum { 
musto Present WHERE information 1S; Nn As\n\n"‚pdes); 
Ru } 


ey Aare ric Wen * 7 


eat zer, tot == '2') ( 
prona ive new listina”)? 
== 2 1”) 
RIED NDESECHIPITON (NOTI more than 950 "); 
Jf p 12 72°) 


Orintf(” WHERE information Bun more than 09  ) 
CmiimtnGaec ,oracters) \maqo >\n"); 


Eom E « 50, gt+)  odesiz)»= ° ‘'; 
z = Ur 
Noe n=. metchart)) != *\n') í 
pqaes[z] = ten; E 
TT SI) 
Eme s Rana ner tnruncatedNnsN 
Balve el characters have beer accepted\n"); 
pesi50] = 'NO'; 
oreak}; 
) 
PAE die #7 
PA ode Ss al 2 NO" 
M nend aif */ 
o 4 
gz replace r(rdes = odes) where r.rid = tdnum 
) 
Net O epp = Erz, 
ao posce PdgesV-' pies) where wh.rid = tdnum 
} 
} fr ena myewh() */ 


Ege 
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